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DAICLIC INFOS : 


DAICLIC parait tous les deux mois. 

L'abonnement est compris dans la cotisation annuelle 
à IDC (du 1/1 au 31/12). A l'inscription, les numéros 
déjà parus dans l'année sont envoyés. 














Conseil d'administration de IDC : 





Président: ^ Christian POELS, rue des Bas-Sarts 10, 
B-4100 SERAING Tél. : 041/37.16.06 
Secrétaire: Marc VANDEMEERSCH, av. Vert Bocage 17 
B-1410 WATERLOO 
Tél. : 02/354.13.63 
Trésorier: Fabrice DULUINS, allée Tour Renard 4, 
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Rédaction: Christian POELS 


Soumissions logiciels : Marc VANDERMEERSCH 
inscriptions, vente logiciels : Fabrice DULUINS. 
(mode de paiement : voir ci-dessous) 





Cotisations : 
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Compte BBL: 371-0356842-45. 
F. DULUINS et CH. POELS 
ALLEE DELA 
TOUR RENARD, 4, 
1400 NIVELLES 
1100 FB par mandat postal international 
uniquement. 


Etranger : 





Services télématiques IDC : 


MN2 Bruxelles-A : 02/242.70.08 





MN2 Liège-A : 041/79.66.66 

MN2 Paris-A : 1/39.71.82.91 

CLUBS ASSOCIES : 

DC BORDEAUX : Bruno DELANNAY, Rés. ACACIAS 
B+ B3, 
Av. de Saige, F-33600 PESSAC 

DC LIEGE : Philippe RASQUIN, Rue Saivelette 89, 
B-4510 SAIVE 

CAROLO-DAi: Etienne SZIGETVAHI, R. Provinciale 7, 
В-1361 CLABECQ (Charleroi) 

DAIC : Jacque MOENS, Clos Fontaine Ducs 6 
B-1310 LA HULPE (Bruxelles) 

DCA: Philippe CASIER, Rue de Paris 31ter, 





F-92190 MEUDON (Paris) 





COPYRIGHT : Les articles publiés n'engagent que la 
responsabilité de leur auteur. Toute reproduction, méme 
partielle, de ce magazine est interdite sans l'accord de 
l'éditeur responsable. 
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Encore du neuf chez IDC software !!! 





Г Vous voilà donc en possession du DAICLIC numéro 6 t Nous 
vous souhaitons une lecture agréable, et restons attentifs 
à toute suggestion pour améliorer la revue, tant du point 


de vue présentation, que du point de vue contenu. Vous Deux nouveaux programmes vous sont présentés ce mois-ci par 
remarquerez que la partie DAICLIC se trouve cette fois en IDC software : SUPERCASTEL et DAITONA. 

début de revue. Cette alternance est volontaire et se 

poursuivra dans les prochains numéros, SUPERCASTEL 





Quelques articles ФІРС BORDEAUX qui, suite à des petits | 


problèmes d'ordre technique, n'avaient pu etre publiés dans En deux mots : vous vous déplacez dans un château à la 
les précédentes revues, paraissent dans ce numéro. Toutes nos | recherche d'un trésor, toujours prêt à vous battre..et à 
excuses à Bordeaux W Vous trouverez notamment  (p.7) les ! vaillament sauvegarder votre peau. 
programmes MINITEL qui auraient du etre publiés avec 
l'article à ce sujet dans le numéro 8... Le château comporte 3 étages (cave, rez-de-chaussée, ier 
étage) avec dans chacun d'eux, 63 secteurs se recoupant par 
Un nouveau serveur Micro-Net2 va ouvrir à Paris t! Bonne moitié, soit un total de 189 secteurs à visiter Hi Dans le 
nouvelle donc pour les membres Français ! Le numéro est le | chateau, vous croiserez 22 sortes de races de monstres, 32 
1/39718291. D'autre part, pour la Belgique, l'index IDC est | sortes de pièges et 32 sortes de trésors H. mais aussi, des 
maintenu sur les serveurs Bruxelles А  (02/2427008) et Liège А éléments tels que des plantes  vénéneuses, de 1а nourriture, 
(041/796666) uniquement. Les autres numéros communiqués des portes secrètes, des potions magiques, etc... 


précédemment restent cependant en activité, 
SUPERCASTEL: Une simulation précise, en temps réel, tient 


Pour ce qui est des logiciels, ils sont maintenant tous compte d'une infinité de paramètres pour le déroulement du 
disponibles sur  VCi541 à l'exception de MAILING LIST,COM et jeu. (poids de vos armes, rapidité, dextérité, intelligence, 
MXDIR ! décision, blessures, etc...) 

Hous  envisageons trés sérieusement  d'étendre nos activités SUPERCASTEL, par R. Sip, uniquement sur DCR, livré avec mode 
sur différentes autres machines... plus de renseignements d'emploi : 1250 Fb. 


dans un prochain numéro... 


AU sommaire du prochain numéro: Particle tant attendu de 


Pascal JANIN, qui vous permettra assez facilement de donner DAITONA 

la parole à votre DAI, et la suite de l'article sur le 

MINITEL. 
La PETER Le sommum de la course automobile sur votre DAI ! 9 circuits 
а Rédaction. 4 


différents, 3 type de voitures, utilisation du clavier ou des 
paddles pour le contrôle de la voiture, 





OCTET 1984 = DAICLIC 1985 
———— кан нн кн Une vue еп perspective du circuit.. des autres voitures qui 
font la course avec vous et qu'il vous faudra éviter,.telles 
sont les caractéristiques de ce nouveau jeu LM/basic réalisé 
Tous les numéros de l'année passée seront prochainement réédités afin de par M.Billot. 
permettre aux nouveaux membres de disposer de l'ensemble de la documentation 
éditée par le club jusqu'à ce jour. Seront aussi réédités, tous les numéros de 
1984, qui s'appellaient alors 'ÜüCTET'. 


DAITONA : AUDIO 500 Fb. DCR/KENDOS/VCi541 :supplément 250 FB 





Les prix, port compris pour | Belgique: Etranger: Toutes vos réalisations sont bien sur plus que jamais 
attendues chez Marc  Vandermeersch, 47 av du Vert Bocage, 

OCTET 84: 600 FB 700 FE i 1410 Waterloo, Belgique. 

DAICLIC 85: 700 FB 800 ЕВ | 

ОСТЕТ 84 + DAICLIC 85: 1200 FB 1400 FB 


Pour les paiements, utilisez la meme methode que pour les cotisations (V. р.0). Une petite précision supplémentaire ; le programme 
MXDIR ne tourne que sur KENDOS 80 trk et son auteur est prêt 
à faire parvenir une copie du mode d'emploi du programme à 


toute personne intéressée... 





Les commandes doivent nous parvenir avant le ier juillet 1986. Les revues seront 
L envoyées dans le courrant de ce mois de juillet. 
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DaiLink est un nouveau programme de communication, idéal pour les communications 
par modems (serveurs télématiques, échanges de programmes,...) et les communica- 
tions directes entre deux ordinateurs. Caractéristiques: 


一 Entièrement écrit en langage machine et compatible avec TOUS les supports: 
cassettes audio, МОСК, УСІЗ41, Ken-DOS, drives Prodata et DAI-DOS 1541 ! 


- Paramétrage de la communication: Baud rate, nombre de stap-bits, parité, 
half/full duplex, 


- Mode dialogues: communication directe sans utilisation du buffer. 
- Mode réception: le fichier recu est sauvé sur support et peut être réutilisé 
à l'aide du traitement de textes  TextEditor. Permet entre autres d'imprimer par 


la suite le fichier regu. 


- Made émission: envoi d'un fichier TextEditor se trouvant sur support. Fermet 
par exemple de rédiger sa lettre à l'aise hors connexion 


- Four les possesseurs de la carte XBASIC (de H. TEGETHÜFF), il est aussi 
possible d'envoyer/ recevoir des programmes BASIC. 


Certains caractères spéciaux sont correctement utilisés comme par exemple le 
CHR$(7) (Bell) qui produit un beep sonore, les caractères Xon/Xaff, etc. 


Егіз: 750 ЕВ 
lajouter 250 ЕН pour la version DER) 


Four la commande, suivez la meme procédure que pour la cotisation (V. page 0). 








Dans le Daiclic numéro 4, je vous présentais le modem  BONDWELL 101. Rappel des 
caractéristiques: 300 bauds, full duplex, CCITT V1, modes Answer - Originate 一 
Testi - Test2, auto-answer. Livré avec cable RS232 et alimentation. 


Ce modem peut désormais être commandé par le club: 
Prix: modem: 6600 FE 
(+ port Belgique: 350 FB) 
(+ port Etranger: Boo FE) 


Paiement: voir paiement des catisations. 
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newsnewsnews news 
A L'ATTENTION DE TOUS LES CLUBS ASSOCIES 


Remarque : 

En raison du manque de place dans les deux derniers numéros, des articles 
qui avaient été prévus d'etre publiés ensemble pour une meilleure 
compréhension , n'ont pu etre inclus dans DAICLIC 4 et 5, et nous vous prions 
de nous en excuser. Entre autres, vous remarquerez qu'à la fin de mon 
article eur le Minitel, je cite deux programmes: un basic et sa routine en 
assembleur , dont les listings auraient du etre mis aprés l'article „Mais en 
raison de leur longueur il n'a pas été possible de les y mettre ... 


De trés bonnes nouvelles !! 


Le secteur bibliothèque du club se développe grace à la coopération de l'un 
de nos membres qui a traduit de l'anglais en français , de façon très 
professionelle, le manuel complet du KEN-DOS. 


ЖЕп raison du don bénévol е de ce travail au club » Се livre vous est offert à 
prix coutant pour le prix de 40FF port compris. : MANUEL KEN-DOS en 
FRANCAIS: 


Vu le nombre des demandes , une réédition du "TOS COMMENTE" a été 
faite.Que tous ceux qui n'avaient pu l'obtenir l'an dernier me réécrivent. 
Le prix lui n'a pas augmenté : 150FF port compris (= p.c.) 


XTou jours disponibles 1 le livre indispensable au programmeur — en 
assembleur ‚du club FLAMMAND associé DAINAMIC : le FIRMWARE MANUEL écrit en 
Anglais: 250FF p.c. et les deux tomes de 'Apprendre à programmer sur le DAI' 
SOFF piéce p.c. 


En raison de l'enthousiasme suscité par notre série d'articles sur le 
HINITEL, une interface améliorée est en cours de réalisation afin de 
permettre le branchement simultané de votre imprimante série avec le  MINITEL 
et ce, sans devoir sans cesse débrancher l'un pour  rebrancher l'autre, En 
outre cette connexion devrait autoriser la commutation de l'un des deux 
appareils non seulement par un interrupteur normal mais en plus par voie 
logicielle grace à une prise sur l'entrée K7 audio, Guettez le plan dans un 
prochain DAICLIC ... 


Coté logiciels, c'est aujourd'hui plus d'une soixantaine de petits programmes 
didactiques en FASCAL qui vous sont offerts grace aux travaux d'un de nos 
adhérents : Mr. DEFRAZ 


De moins bonnes nouvelles: 


En raison de mon Changement de lieu de travail, je ne peux me rendre chez moi 
qu'un week-end tous les 138 jours, et ceci retarde mes réponses. De meme 
Mr.LAFARGUE à déménagé et a donc lui aussi un peu de retard dans ses réponses. 
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“Four faciliter vos demandes de programmes, il est désormais INDISPENSABLE 
d'indiquer pour toute demande de programme ou d'article de la BIBLIOTHEQUE : 


par ex. “Le LFS? 
ste concernée par . "Liste 9b’ 

du prog. demandé par e “Langages” 

XLe COMMENTAIRE pour ce titre 

tLe No de FACE pour un pam. ou le NOMBRE de 

articie, 











pages pour un 


nous évitent une longue recherche à l’aide du seul 
de programmes ou des kilogrammes d'articles ... 


indications 
titre parmi des centaines 


Les simples 


Les nouvelles bonnes et mauvaises: 


nouz ont obligés à 
personne qui 


prendre des décisions somme 
fabriquait les  KEN-DOS „en 


Des évenements 
toute plutot 


peu agréables 
positives il! : La 





Hollande, vient d'abandonner la fabrication de ce produit. Cela voulait dire 
deux plus de possibilité pour les personnes qui voulaient acheter 
ce qui топ sens „représente le meilleur outil pour le DAI ‚plus de 





Ken-Dos 1! Et pour ceux qui acheté , pas de facilités de 


réparations !!, 


l'avaient déjà 





Les actions 
constructeur 
développer 

avec des réparateurs professionels 


alors entreprises ont permis d'obtenir l'autorisation du 
de continuer la fabrication de son système et parallèlement, 
les possibilités de réparation à BORDEAUX, Des contacts ont été pris 
qui ont accepté d'effectuer les réparations 


non seulement du KEN-DOS, mais aussi du DAI et du МЕМОСОМ lil Ces memes 
réparateurs Gffrent aux personnes intéressées la fabrication de leur 
Ken-Dos à un prix légérement inférieur à celui obtenu de Mr. 


= 


Gouswit, (pour tout joindre 5 timbres pour les frais de 


photocopies et part), 





renseignement, 


I.D.C. Bordeaux. 

s/c DELANNAY Bruno. 
Res. les acacias  Bt.B3 
Avenue de SAIGE 
33600 PESSAC . 








MU ec" | 
yr d Les nombres de 2 chiffres 25 et 76 possèdent une parti- 
cularité intéressante. Toutes leurs puissances se ter- 
‘minent par 25 et 76 respectivement. 


Pan exemple : 25 x 25 = 625 


78 к 76 x 76 = 458976 


Quels sont les nombres de 3 chiffres qui possèdent 1а 


même propriété > 


Vos réponses doivent être envoyées à Jacques 
MOENS, Clos Fontaine des Ducs, 4 à 1310 La Hulpe 
(Belgique). Le programme trouvant le pius rapidement la 
bonne réponse vaudra à son auteur de recevoir une cas- 
sette bourrée de programmes ! 
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SPL Vi.1 PAGE 1 
0000 TITL “UTILITAIRE MINITEL par Sebastien DUBDURG* 
0000 ; 
9000 ; 15 juillet 1985 
0000 ; 
0000 š 
0000 HELLER 
0000 3% ADRESSES % 
DOUA HEEL KREEK 
0000 : 
Оооо ; 
0000 4=FFOS BAUD ERU QFFOSH Baud register (code de la vitesse de 
transmission) 
0000  à-«FFFO INFUT EQU OFFFOH sContient le dernier caractere recu sur la 
0000 a=FFO3 STATUT EDU OFFOSH sRegistre de statut. [ RS232. 
à=0131 QUTDIR EGU ізін Flag indiquant la direction de l'output. 
5600 ; 
BERKER EZE EE 
Ж TABLE D'ENTREES ¥ 
IXYEYYAYAYYYYYYKKYYEK 
IHO QC ORG PIH 
0900 00 BUBBLE DR OH Flag si $20 l'envoie sur le minitel est 
0901  C31109 ENTREE JMP AGAIN Vers la routine d'affichage. [autorise, 
0904 (57409 MARCHE JMF ON ;Vers la routine de mise en parallele 
0907 H d'une sortie vers le minitel. 
0907 CS7D09 JMF SCROLL Place le minitel dans le mode SCROLL 
0906 4 set dans le mode CURSEUR ACTIF. 
Q90A 00 TERM DB OH Flag si =O:mode emmulation terminal 
0908 j ; le chardel le return sont comme sur le 
0908 : DAI) 
O90B } ХУЖУЖУЖЯ IGA b У КУ Я У 36 34, ЖИ 
090Е ;* CALCUL DE PARITE ET MISE EN FORME DE L'OCTET А ENVOYER 0% 
990В ДОКОСНА 
ООВ š 
ï A=DCTET ñ FARITER 
EG?F FARITE ANI 7FH iMet le bit 7 de (ñ) a Q, 
E8 КРЕ iSi (А) est pair,laisser le bit 7 a zero.. 
F480 ORT 80H Sinon mettre le bit 7 a 1. 
с? КЕТ 
ХУКУКИИ 
sk AFFICHAGE SIMULTANME DAI-MINITEL 4 
= ХУЖЕ ЖЖ У УХ 
pest execute apres un КӨТЕ et avant l’ execution d'un 
SRSTS DB 3 (affichage d'un caractere sur l'ecran. 
pour envoyer ce caracters au minitel via la RS 
Mise en marche: sous utilitary: G MARCHE 
H (mettre la valeur de MARCHE lue par 5). 
zârret : sous utilitary, Z3 
FS AGAIN FUSH FSW 
583101 LDA DOUTDIR іБі la sortie est sur la RS232, 
B7 GRA А smettre la sortie sur ecran seulement, 
C21E09 JNZ LIAGA pafin de ne pas envoyer des caracteres 
ЗЕО1 MVI А iH iparasites au minitel. 
323101 STA QUTDIR | 
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ОЕ 
0921 
0922 
0925 


9940 
0941 
0942 
0945 
0948 
0949 
094С 
0940 
0950 
0951 
0955 
0956 
0958 
0958 
095E 

0960 
«0985 
0965 
0928 
о?ай 
AD 
0970 
0970 
0971 
2974 
0974 
0974 
0974 
0974 
9974 
0979 
0978 
0978 
097C 
0570 











SPL V1.1 








360009 
B7 
C27009 
SEBS 
3205FF 
Fi 

Е1 

ЕЗ 


ES 

DS 

cs 

FS 

7E 
ЕЕОЗ 
CA4009 
F1 


CSFDC& 
Fi 
FS 
200809 
CD94DD 
FS 


ЗАОАО9 


РЕЗО 
C25E09 
SEGA 
CD94DD 
C33709 
FEBS 
C23709 
ЗЕАО 
CD94DD 
3E88 
CDS4DD 
C33709 


Fi 
СЗЕрСа 





FAGE 2 






















UTILITAIRE MIMITEL par Sebastien DUBDURG 


АБА LDA BUBBLE {51 la sortie vers le minitel 

DRA А nest pas permise effectuer 

JNZ NOTHIN sun RSTS normal 

MVI A 88H ila vitesse 1200 bauds est 

STA BAUD sselectionnee. 

РОР FSU 

РОР H 

АТН. #HL contient а ce niveau l'adresse 
i squi suit l'instruction RST 5. 

PUSH H iHL pointe donc le DATA. 

PUSH D 

PUSH В 

FUSH PSW 

MOV AM zA=DATA. 

CEI 3H #Si ce data est 3 (ordre d'affichage 


JZ CAR sur l'ecran) envoyer le car. sur la R5232 
OUTO FOF PSW Sinon effectuer un RESTS normal. 


FOF B 
FüF D 
FOP H 
XTHL 
FUSH H 
JMP OC6FDH 
CAR POP FSU 
FUSH PSW :Азсагасфеге a afficher. 
CALL FARITE Ajouter au caractere la bonne parite. 
CALL ODD94H Envoyer le tout sur la RS 232. 
PUSH FEW 
LDA TERM {51 le mode termnal n'est 
ÜRA À spas actif,continuer le 
JNZ FROG :RSTS DB 3H. 
РОР FSW 
ЕРІ SDH :8i le caractere est return 
JNZ CONTO pirevient au debut de la ligne 
MVI à OAH scourrante sur minitel), aller aussi 
CALL ODD94H soeur la ligne suivante. 
JMP Ойто 
CONTO = CPI 88H ¿Si le caractere est chardel,qui sur 
JNZ Ойто ile minitel revient simplement en 
MVT ñ OAOH sarriere sur la ligne,aficher un space 
CALE ODD9?4H sen plus,puis renemir une position en 
MVI А 88H sarriere sur la ligne courante du minitel. 
CALL DDD94H 
JMP Duro 
NOTHIN FOF PSW 
JMP OCéFDH 


ТИТО 
Ж MISE EN PLACE DE L'AFFICHAGE SIMULTANE % 
ТОКИО К К ЖК 


š 

QN DI 
LXI H ENTREE ;Foke le point d'entree 
SHLD &CH ide AGAIN dans le vecteur 5. 
ET 
RET 
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PAGE 3 UTILITAIRE MINITEL par Sebastien DUBOURG 







ЖЖ УЖ У Я Е ЖК CO E S ORO OE CE OC O C E ER EX 
LE MINITEL EN MODE SCROLL ET EN MODE CURSEUR ACTIF X 
ELLE АТ ХЕ КАЖЕТ ЖЕЛ КЕНЖЕ КУ 








sprotovole pour "scroll? 


SCROLL MVI A 








CALL 
H C ) 
SES? MVI ñ GH 
CD94DD CALL ODD94H 
SECS AVI ñ OC3H 
CD94DD CALL ODD94H 


D 
mat de controle pour "curseur actif’ 
H 


JEU = MYVI A 11H 

C394DD UMP SDDG4H 

Fi PROG POF PSW 

C33709 JME OUTO 
END 








САІМ #904:РОКЕ #900,1:PRINT CHR$(12) 3 ТАВ (20): "UTILITAIRE MINITEL 2" 

PRINT TAB(20);"(C) Sebatien DUBOURG” 

PRINT TAB(20);" & le fameux IDC BORDEAUX" 

PRINT TAB(40);"27 juillet 1985" 

PRINT 

REM UTILISATION : taper directement les caracteres sur le clavier, 

REM Бі tab , on rentre les caracteres en valeur ASCII decimales. 

REM Four atir du mode tab entrer le code 0, 

PORE $900,0:PRINT CHRS(O);:REM 2CHR (0): pour le рокаде de la bonne vitess 
e de transmition. 

EM CALLMSOO4:MIGE EN MARCHE DE LA LIAISON RS 
REM CALLMS907:MDDE SCROLLING ET CURSEUR ACTIF 












POUR LE MINITEL 





,1:REM MODE DIRECT FOUR LE MINITEL 
TC: IF GETZ=0 THEN 110 

1 | BETZ-SB:GOSUB 14 
БЕТУ= #6: БООН 100 








d GETZz9:G0SUR 1000:G0T0 110 
EN DOUD 1000:50Т70 110 

„1: INPUT БЕТА: PRINT 

THEM FOKE 4900,0:GOTO 110 

РОКЕ #900, û: GOSUR 1000:G0T0 160 

PRINT CHR$(GET IOR 880); 

PORE $900,1:PRINT " (#"3HEXS(GETZ);" y," 
00, O: RETURN 








FORE #90 
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Le manuel "TOS 
IN THE TOS TABL 

i definir 

ation par l'ex 


COMMENTE', lors de la routine 'FIND AN 

& EXECUTE ТТ’ (adresse FO67),je parie de 
propre table d'in uctions. Еп voici 
ample... 












INS TRUCT 1 
La pe 
donc La demonstr 















re exemple avec d'autres fonctions peut etre envoyé aux 
grace аш source du programme 
Dour DER dont le descriptif est 

L.D. Ca Bordeaux NEWS !! 
















ication, il est bon de voir comment 
Comme on 1 a l'adresse FOA7 
la routine de recherche d'une instruction fait 
ine de La ROM du BASIC implanté a l'ac sse CAZ4 
` MWARE MANUEL. <C. Ce sous-programme est 
mpilation du BASIC mais peut très bien servir a 
MS. En voici le listing... 

























HE зе HE E IY KY HE Je M Je Me C HE HT E HE DE E MJ ЗЕ ЭЕ EH M ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЧЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЗЕ 
ж TROUVE UNE INSTRUCTION DANS UNE TABLE ж 
ЗЕ ROC YN I Y OC Y C VHC KC HR ETE EH JE CH EM e JE ЗЕ ЖЕ JE IC Ie JE e € 


Cherche si dans la ligne en cours à la position pointée par C se 
trouve une instru on présente dans une table d'instructions , et si 
Oui, donne l'adresse ou se trouve l'instruction dans la table . La 
table est terminée par OH, 








entrée x ML début de la table d'instructions. 


C * position dans la ligne testée. 
E 4 


nombr t 
de l'instruct 





š d'information se trouvant aprés le nom 
o) dans la table, décrémenté de 1. 





Sortien struction existe dans la table : CY=1. 
l'adresse ou se trouvent les 
& l'instruction trouvée, 

n sur la ligne en cours après l'instruction 






informations 









is n'existe pas dans la table s CY=Q 
C “ 





D caractere suivant. 
HL. s l'adresse Située juste après la table. 
CAS4 LOORC CALL ODDDZ2H Charge А avec le caractère 
spointe par C sur la ligne 
af sautant les ‘SPACE’ et 
gles ‘TAB’ J) , С pointe le 
caractère suivant. 
САДУ LEIO MOV D, M 


sD = longueur du nom de la 
chaine pointée par HL dans 
* ila table. 
CATR INX H sHL pointe le premier 
caractère de la chaine. 
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саз? 
САЗА 
CASE 
CASC 
CAID 
САЯО 
CA41 
CA42 
CASS 
CA46 
Сая? 
CASA 
CAGE 
CA4C 
CA4D 


САДЕ 
CA4F 
CASO 
CASS 
CAS4 


Four 


explique 


l'adresse 
recherche 


écrire sa 


Four 


son listing complet dans le 
sont constitués 
d'interprétation du TOS va plus loin, dans le cas ou il n'a pas trouvé 
l'instruction demandée dans la table, il va lire l'adre 
juste aprés l'octet O qui marque la fin de la table. Si cette adresse 
est OOOOH,le TOS arréte sa recherche et donne la main au systéme 
d'interprétation BASIC (en mode direct 





de mettre en série autant de tables que l'on veut, 


interprétation, se reporter aux chapitres suiva 


MOV AAD 
ORA ñ 
RZ 
PUSH D 
LKC20 CALL. 
INR C 
CMP M 
INX H 
JNZ OCASEH 
DCR D 
可 N 之 QCATDH 











table 
la 


gc la 
3 Sauve 











la ligne. 
" la ligne. 
"ë Suivant 


ODDEOH 







СУ = dos instruction trouvée, 





Si les chaines sont 


LEKCIO MOV A,D š 
inia 
ADD E Calcule G: 
CALL ODESOH &chaine suivante d 
РОР B Redonne le C d 
JMF OCASTH ¡Essaie la nouvelle cha 


le TOS,la table des instructions est située en F786 (voir 
“TOS COMMENTE"), Le d'information 
par l'adresse d'exécution de 1 ‘ins On. Le système 





sse située 





uni Quement, 4” сө qui 
la syntaxe сім DCR a REWI:sLOAD est valable mais LOAD: REW] 

= de syntaxe car le TOS n'as pas LOAD dans sa table 
main au BASIC qui ne compr ML DSi 
ам contraire non E i e tée comme 
d'une a. table de le TOS va continuer la 
de l'instruction dans autre table,..etc...Ceci permet 
&+ de pouvoir 
opier la table du TOS (ouf! 




























propre table sans avoir a re 





merci monsieur MEMOCOM!). 


de la routine d 
du ‘TOS COMMENTE ' 8 


l'explication de la mise en "vi 















=INITIALISATION  (LHFADA) : lignes F4D8,F4FA 

“DCR (LHF566) 

“DATA FOR DCR (LHF4R6) ï ligne FADI 

“NEW DINC (LHFOS4) э pour le mode direct 
“INTERPRETATION  & EXECUTION IN DIRECT MODE (LHFOGE) 
CENTRYPOINT'S TABLE (LHFOOO) s ligne FOOÓ pour mode pom 
“КЕМ INTERFRETOR (LHFO21) ; pour le mode pom 

“FIND ñ INSTRUCTION... (LHFOA7) 


Я la suite de tout ceci, l'exemple que vous attendez tous... 
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SPL V1.1 


боб 





OO 
0000 
OOOO 








PAGE 1 





Auteur : Sebastien DUBOURG 
= & IDC BORDEAUX 

= Res. les ACACIAS bt. B3 

= Av, de Saige 

= 33600 PESSAC 


iü H 


Reference : TDS CDMMENTE 
livre edite et distribue par 
IDC BORDEAUX 


n Hu H H H H H 





ANCTAB EDU 











SPL V1.1 


0914 
OFiA 
ОА 
0916 
091C 
0716 
091E 
0920 
0921 
0922 
0925 
0925 
0923 








ЗАВО01 


РАБЕ 2 


Extension des commandes DCR 


zë Effacement de l'ecran ¥ 
$ КЖ КЖ У ЖЖ 


HOME MVI 


А OFFH {МОРЕ 0. 
RST 5 
DB 18H 
MVI À OCH PRINT CHR#(12)5, 
RST 5 
DB 3H 
RET 


ЗЕЯ ИЯ ЖЖ КИ Я КУ Т ТҮТҮК ТА OT 
pł Manipulation des moteurs des cassettes audios X 
SAGO” ЖЖ ЖЖ У ЖЖ ЖЖ ЖЖ 


MOTOR LDA FILE iA=argument de l'instruction. 























33F7806 iTable DCR d'origine. FEFF CFI OFFH {51 il n'y a pas d'argument, 
2=0297 TABADR EGU ;Pointeur de la table de commandes. CA4509 Ji MOTOR allumer le moteur l,eteindre le 2, 
3-01BO FILE EGU Argument de la commande. FEQQ CFI OH 18i l'argument est 0, 
970040 FOROM EQU scopie de FDO6 (commande cassette). Ca4009 42 MOTORO setteindre les 2 moteurs. 
0000 š FEO1 CFI 1H Si l'argument est 1, 
0000 i СА4509 JZ MOTORI allumer le moteur l,eteindre le 2. 
обоо ORG GOH FEO2 CPI 2H 35i l'argument est 2, 
6900 г CA4COS JZ MOTOR sallumer le moteur 2,eteindre le 1. 
9900 г FEOS CPI 3H {51 l'argument est 3, 
0900 dek ORO CAS209 17 MOTORS zallumer les 2 moteurs. 
0900 ik Table des points d'entree X C? RET {81 l'argument est autre,ne rien faire. 
0900 КККК OTT TEE) š 
0900 H BESO MOTORO MVI A ЗОН 
0900  C30509 JMP MARCHE sActivation des nouvelles commandes. 324000 STA FOROM 
0903 031309 JMF ARRET sDesactivation, co RET 
090% i E 
0906 ; ЗЕ20 MOTORI MVI A 20H 
9906 БЕЗ AE AC AE ACC CHE ЖЖ ЖЖ ККК 324000 БТА FOROM 
0906 yk Activation des nouvelles commandes X CR RET 
090% ДОККО ООК H 
09046 1 ЗЕ10 MOTORS MVI A 10H 
0906 249702 MARCHE LHLD TABADR zHL=adresse de l'ancienne table. 324000 STA FOROM 
0909 227109 SHLD OLDTAR zelle est stoguee a la fin С? RET 
4900 ï jde la nouvelle table pour que H 
0906 } iles anciennes commande DER 3E00 MOTORS MVI ñ OH 
090€ š ;restent valides. 324000 STA РОКОМ 
O90C 215809 LXI H TABLE shet l'adresse de la nouvelle Ce RET 
090F 229702 SHLD TABADR stable dans le pointeur de table. Н 
0912 Cp КЕТ E 
9913 H HECK Y X L O E O X E OCX: 
0915 $ ik Table des commandes ¥ 
0913 К NON ak OE HAS 
0915 sk Desactivation des nouvelles commandes X à 
0915 HUT ЕЖУ Я ЖЖ ЖЖ 04 TABLE DE ан 
0915 : 4S4F 4D DB "HOME" 
0915 247109 ARRET  LHLD OLDTAR sMet l'adresse de l'ancienne 1809 DN HOME 
0916 229702 SHLD TABADR stable dans le pointeur de table. o5 DB sH 
0919 C9 RET 415252 DE “АККЕТ" 
OFLA £ 1309 DW ARRET 
0918 Н 06 DB &H 
0918 ЖЖ ЖЕ ОЯ 464234 DE ` MOTEUR ` 
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BPL 9111 PAGE 3 Extension des commandes DCR 
098Е 2209 DW MOTOR 
0970 š 
9970 00 DH OH 
0971  86F7 = OLDTAB Dw ANCTAE 
9973 H 
0973 H 
0973 END 
MODE D'EMPLOI + faire  COLLMBO9OO pour activer 







efface l'écran, ‘MOTOR п’ allu 
lio numéro n.Si n n'est pas tapé le mot 
š moteurs sont ét eint j 3 les 2 mo 





11 faut 


signaler pour La fon 
TAR par le passage en MOD 
(ction MOTEUR utilise la possibilité d'a 
à 9 offerte par le TOS, Lore l'on tape MOTEUR n, 
la valeur n si il n'y a pas d ar gume 1BO prend la 
Par tte méthode simple à mettr en oeuvr 
L'utili on des programmes en language machine 
de simples CALLM . 


ion HOME. 
О Lors 



















SSEURS DE KE 


“La mémoire morte livrée en option sur KENDOS 
est 1a meme que celle livrée avec le DCR sau 
l'instruction DISK dans 1a table d'instructions en 


"Ше programme HOME ci-desus fon 
DOS co mmutéer: mais il faut 


INNE ABE 
alors refaire un 6900 à 

















de banque car les adr es des bles DCR et DOS 
orc (à vérifier). Les g esseurs de КЕ 





ae Cette méthode en 
Та valeur corr 
RAM. Je n'ai pas 
MOTEUR, 


testant quelle banque 
spondant à La banque à la fi 
8 sur KEN-DOS le passage 






Sébastien Dubourg, le 15 
pour IDC Bordeaux. 









l'extension. HOME 
me le moteur de la 
і € allumeé,si 
teurs sont allumés, 





qu'elle diffère de 

en graphisme , 

rgument allant de © 
(BO est chargé avec 
valeur FFh „ 

е, On peut rendre 
plus facile qu'avec 


N-DOS: 


et contenant le TOS 
f qu'elle contient 
F7DF. 


avec la banque О du 
chaque commutation 
ne coincident pas 
NDOS peuvent donc 
est commutée et en 
n de leur table en 
des arguments pour 





aout 1985 
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— sss 

































































par I.D.C. Bordeaux. 





iére Partie : 1° Ancien clavier 
ou "А TOUT SEIGNEUR TOUT HONNEUR? 


Dans 1e texte, les mots entre '' font référence aux annotations des 
schémas . Avant toute opération, TOUJOURS débrancher tous les fils et prises, 
puis enlever le capot blanc du DAI. Pour commencer le démontage, il convient 
tout d'abord d'enlever la partie portant l'inscription de la lettre, que 
j'appellerai par la suite ‘le cabochon’. Sa couleur varie selon la fonction de 
la touche : grises ou noires pour les anciens et memes bleues, vertes et rouges 
pour les nouveaux 







Clavier DAI ancien modèle Socis аш аркан: 


= supportant les rangées 
Uue générale Clavier avec de touches et la 
touches. vues cavaliéres. barre d'espace 


РА "Cabochon de touche" 7 


/ 
р 
Ce 

S жш) — — — — fnm Zn aE Ea > Жж 
Ра romane É Z op 


——————à 


Circuit imprimé ——^ 















ATTENTION : c’est la première opération de casser du 


bois. 


délicate ou vous risquez 


Mettez le DAI face à vous sur un plan horizontal bien dégagé comme si vous 
alliez programmer, puis munis de deux lames suffisament rigides, vous allez 
enlever les cabochons. Vous choisirez des lames dont l'épaisseur puisse passer 
entre le cabochon et le socle lorsque la largeur de la lame et sa longueur sont 
dans un plan horizontal (donc épaisseur dans un plan vertical) et dont la 
largeur soit supérieure d'environ 5mm à la distance séparant la partie 
inférieure du cabochon de la partie supérieure du "socle'. 


Le plus facile est de commencer par un coin dégagé (éviter les touches du 
milieu) par exemple le ‘shift’ en bas à droite (sans doute celui à gauche 
serait plus facile pour les gauchers et le coin supérieur pour nos lecteurs des 
Antipodes ... (it's a joke !!) .. bonjour NOUMEA ...) . 







Vous immiscez donc chacune de vos deux lames (un tournevis fin faisant très 
bien l'affaire) à la base du cabochon, horizontalement , à angle droit par 
rapport au grand axe du clavier, donc droit devant vous de part et d'autre de la 
tige qui relie le ‘socle’ du clavier (en général de couleur marron) , au 
cabochon . 











— 
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Yue de la partie mobile de la touche. dans le socle 


Uue cavalière 








Vous exercer alors une pression STRICTEMENT verticale, de bas en haut, en 
faisant tourner le manche des tournevis, maintenu dans un plan horizontal le 
tournevis de la main droite tournant dans un sens horaire, celui de la main 
gauche dans un sens antihoraire. Ainsi la largeur de votre lame va venir 
s'appuyer d'un bord sur le bas du cabochon et de l'autre sur le haut du socle, 
poussant le cabochon vers le haut et le désemboitant de la tige qui le pénétre . 











ATTENTION : tout mangue de synchronisation entre vos deux 
mains va immanquablement faire dévier la 
pression qui DOIT rester verticale saus peine 
de casser la petite tige fort fragile à sa 
base . 





Si un tel malheur vous arrivait, ce n'est pas dramatique, si vous ne cassez Partie mobile de la tauche 


qu'une ou deux tiges, En effet les grosses touches ( return et shift) sont i il 
я f Gel П 

fixées par deux de ces tiges et peuvent se contenter d'une seule. Vous pouvez Vue de face Tis depre: 

donc casser au maximum trois tiges !!! grosses brutes s'abstenir ... 


| CR | II 


B Patte appuyant 
ol sur le ressort d b 


` 
`m Crochet de l'etrier 


D' ailleurs pour ces trois 'touches doubles', une précaution supplémentaire 
est à prendre : il faut dégager progressivement un peu une des deux tiges puis 
un peu l'autre car si l'on extrait d'une seule traite une des deux tiges, meme 
en restant bien vertical, on fait subir à la tige voisine qui est solidaire du 
meme саһасһоп une contrainte oblique qui risque de la casser . 






Son but est d'enlever du "socle" la pièce mobile de la touche, constituée ( 
cf.schémas ) de ‘la tige’ (partie sup.) et de ‘l’étrier’ {partie іп4.). Cet 


Yue partielle du socle 
































7 étrier vient appuyer sur deux ressorts verticaux contenus dans le socle grace à 
Ze la partie nommée ‘patte’ sur le schéma qui fant les contacts et dant 
— Sg Р l'encrassement provoque rebonds et mauvais contacts, Cet étrier comporte aussi 
PA Í des aspérités en forme de 'crochet' qui font butée et empéchent l'étrier de 
_ sortir du socie. 
LE LT LS LF > 
# Ka 
К Ж ғғ Уи Ж 
Ж Uues du trou dans le socle. contenant les ressorts 
pes В и Jue de dessus 


“ет. 


Ergot retenant la patte de |’ 
étrier appuuant sur le ressort. 
Ergot retenant le ressort. 
Derniére spire du ressort, 
extrémité supérieure, retenue 
par l'ergot. 


Vue rapprochée d'une partie du socle 


22 "Trou" dans lequel coulisse 
шш. Ра partie mobile de la touche 


Donc de proche en proche, vous avez dégagé tous les cabochong, sans casser 
une seule tige et en ayant repéré, j'espère, l'emplacement des lettres !! Vous 


voila à pied d'oeuvre pour attaquer la partie vraiment délicate des opérations 
Vie 


Ressort. 





Ergot "en biais" retenant 
l étrier par son crochet. 
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viri 








Yue caualiére. en transparence 








Ergot retenant 
le ressort. 


Ressort 











Ergot en biais retenant 
l'étrier par son crochet. 


“-—— 


Le but de la manoeuvre va étre d'écarter les parties du socie qui 
comportent les reliefs nommés ergots afin de dégager l'étrier sans casser la 
partie fragile | crochet ), qui casse facilement si on tire brusquement sur 
l'étrier. Les différents reliefs étant symétriques, aussi bien sur 1а pièce 
mobile que pour le socle, il est inutile de repérer l'orientation de la pièce 
mobile quand vous l'enlever car vous pouvez la remettre dans le sens que vous 
voulez . ` 


Sur la ‘vue en transparence du trou du socle contenant l'étrier, vous 
verrez les différentes formes des ergots du trou : 


- L'ergot central est le plus important car c'est surtout lui 
qui retient l'étrier. Sa forme est triangulaire afin de 
présenter une pente douce lors de l'introduction de l'étrier 
et une pente abrupte qui forme un cran d'arret avec la 
partie en "crochet" de l'étrier . 


- Les autres ergote sont surtout là pour guider les 
"pattes" de l'étrier et bloquer la partie supérieure des 
ressorts qui est libre. 








Four cela, le mieux est de prendre deux lames (tournevis) plus fines que 
celles précédemment utilisées. Chaque lame sera insérée entre l'étrier et le 
socle, à hauteur de la tige, une lame au dessus , l'autre au dessous, de façon à 
écarter le socle en regard de l'ergot central pendant que, avec votre troisième 
main, vous tirez doucement sur la tige afin de dégager la partie mobile de la 
touche. Il vous faudra peut etre batailler un peu pour trouver le bon angie de 
levier à trouver pour dégager l'étrier sans peine sans casser la tige ni fendre 
le socle ... Mais une fois comprise, cette opération va assez vite . 





Vous voila à présent devant les ressorts mis à nu. 


Avec le plus grand soin et des pincettes, vous enlevez de ce trou béant, 
les conglomérats de poussière, les cheveux et autres miettes de pain. Vous 
pouvez meme étirer certains Fessorts, s'il vous paraissent écrasés, à condition 
de ne réserver ce traitement qu'à ceux qui sont vraiment bien plus ramassés que 
les autres. Si vous tirez trop sur ces ressorts cela pourrait les faire se 
toucher en permanence comme si la touche était enfoncée (vous vous en apperce- 
en appuyant sur "repeat^). 














Jamais au cours de ces opérations, vous n'avez besoin d'un fer à souder et 
il est meme à proscrire. Une fois le trou propre vous pouvez alors si cela est 
vraiment nécessaire utiliser une bombe anti охуда ой pour les contacts, User-en 
modéremment et assurez vous que les contacts sont secs avant le remontage ii 
Pour remonter le clavier, rien de plus simple : 


~ enfoncer la partie mobile dans le trou du socle jusqu'à ce que 
les ergots emplissent leur office en encliquetant l'étrier . 


- vérifier que les ergots retenant les ressorts contiennent Dien 
l'extrémité libre du ressort . 


- remettre le cabochon de touche . 
ET C'EST FINI !!! 


Vous pouvez alors profiter du plaisir düment mérité de tapotter sur un 
clavier "Кату 9" 


Bonne frappe . 


Le président d'IDC Bordeaux: 
Delannay Bruno 
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Cherche correspondants pour échanges de programmes et documentation. Ecrire à 
Victor NIJS, Rue MARCHAND 5/7, B-4530 HERMALLE S/ARGENTEAU. 


Cherche drives PRODATA 1 Mb avec contrôleur., Vends modem acoustique DATAFHON 
5210. Paul CREMER, Rue E. MALVOZ 2, B-4610 ВЕУМЕ-НЕЦВАУ. 


Cherche DCR. Faire offre à Monsieur Michel  LAMBRECHT, Rue J. VERCKRUYST 9, 
B-4530 HERMALLE S/ARGENTEAU. 


Suite à un déménagement, je suis dans l'obligation de me séparer du meuble que 
j'avais fait faire spécialement pour le DAI (cf. l'article de IDC Bordeaux, dans 
DAICLIC 4) acheté 3000 FF, je le vends 2000 FF état neuf. Faites vite ! Bruno 
DELANNAY, Président IDC Bordeaux. 


Vends carte PAL DAI: 3000 ЕВ. Christian FOELS (Rédaction), 





А vendre Ken-D05 2 x BŒ une quarantaine de disquettes (дете plus grande 
programmathéque DAI...): 55000 FB à discuter. Cherche DCR d'occasion à bon prix. 
Faire offre à Marc VANDERMEERSCH, Avenue du VERT BOCAGE 17, В-1410 WATERLOO. 





А vendre interface pour joystick de type Spectravidéo : 500 FH; paddle manche à 
balai avec 3 ème pot.et event: 500 FB; paddle 3 potentiomètres + event: 500 FE; 
DAI + DCR + documentation et programmes : prix souhaités 55000 FR (à discuter); 
DCR + 6 Қ? bourrées de programmes : 15000 FB, 


Faire offre à Fabrice DULUINS, Allée de la Tour Renard 4, В-1400 NIVELLES, 


REMARBUE: Ces petites annonces gratuites pour les abonnés sont exclusivement 
réservées à des propositions entre particuliers sans objectifs commercial et 
relatives à l'informatique. DAICLIC se réserve le droit de refuser une annonce 
sans avoir à fournir de justification. 
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| I MPC вз I  LHLD 2A I OV M,C 71 I SBBL 9D I 
| I CMPD BA I LXI B 01 I MOV мр 72 I SBBM SE I 
MICHR CESSEU inal | 2 | ' I 
I CMP М BE I MOV A.A 7F I WIA ЗЕ I STA 327 ‘I 
JANVIER 1986 Жы MEUS I CNC Па I MOV A.B 78 I МІВ 06 I  STAX B 02 I 
ба я 628 Bd LAHURE т € Ric Œ AMOR UA 2-2 8 G 
А T Қ 1 5 
D.A.I.c.l.i.c 59500  DOUAI,FRANCE i uL c Га NEE On E 3 二 
I CPI FE I MOV RH 7C I УІН 26 I SUB B 30 I 
I CPO E4 I MOV AL 7 I WIL 2E I SUBC 91 I 
x ATIF x : 
Saga a Huc O Mou I DAD B 03 I MOV B,B 40 H ORA À B7 I SUB H 34 I 
I DAD D 19 I MOV B.C 41 I ORAB BO I SUBL 95 I 
I DAD H 29 I MOV B,D 42 I ORAC в I SUBM 96 СІ 
I DAD SP 39 I MOV B.E 43 I ORA D B2 I SUI D6 I 
I DCR A 3D I MOV B‚H 44 I ORE вз І  XCHG ЕВ І 
I DCR B 05 I MOV В.Е 45 I ORAH BA I XRA A AF I 
Tableau recapitulatif des instructions assembleur du 8080A I ІМЕС OD I MOV BM 46 I ORAL B I ХАВ А I 
Е S i ЕЕ I DCR D 15 І MOV CR AF I ORAM B6 1 XRAC AS I 
| avec leurs code hexadecimal et leur signification. т DOR E "B 1 MOV C.B 48 Т ORT Fe 1 SRA D AR = 
| I  DCRH 25 I MOV C.C 49 I OUT 03 I XRAE AB I 
| І I MOV C,D 4A І РСН. E9 I  XRAH AC I 
| MNEMONIQUES ET LEUR CODE HEXADECIMAL : E D O А ou ы ет 5. 
| I ACI CE I  DCRL 20 I МОУ C,M 4E I POP D Di I I I MOV C.L 4D I I Хв EE І 
I  ADCA 8F I DCR M 35 I MOV D,A 57 I POP H E1 І I I I I  XTHL ЕЗ І 
I ADC C 89 I  DCX D 1B I MOV D,C 51 I  PUSHB C5 I 
I ADC D BA I  DCX H 2B I MOV D,D 52 I PUHD D I 
I ADC E вв I DCX SP 3B I MOV D,E 53 I PUHH E I 
I ADC H 8C I DI F3 I OV D.H 54 I PUSH PSW F5 I 
I ADCL 8D I EI FB I MOV D,M 56 I RAL 47% ЗТ 
| I ADC W 8E I HIT 26 I MOV E.A SF I RAR iF I SIGNIFICATION DES MNEMONIQUES 
| I ADD А 87 1 ІМ DB 了 MOV Е.В 58 I RC D8 І ET DUREE DES INSTRUCTIONS еп temps d'horloge 
I ADD B 80 I  INRA 3C I MOV EC 59 І RET C9 І 
I ADD C 81 I INR B 04 I MOV En 5A I RLC 07 I 
I ADDE 83 I  INRD 14 I MOV EH 5C I RNC DO I I VW | | | 1 
I ADD H 84 I INR E 1C I MOV E,L 5D I RNZ co 1 I ACI 7 Addition immediate to À with carry І 
T ADD L 85 I INR H 24 I MOV E,M 5E I RP FO I 1 ADC M 7 Addition memory to А with carry I 
1 ADD M 86 1 INR L 2C I MOV H,A 67 I RPE E8 I I ADC r 4 Addition register to A with carry I 
I ADI C6 I тм 34 I MOV H,B 60 I RPO EO І I ADD M 4 Addition memory to A I 
I ANAA A7 I  INX B оз I MOV H,C 61 I RC OF I I ADI 7 Addition immediate to А i 
I ANA B AO I INX D 13 I MOV H,D 62 I RSTO C7 І I ANA M 7 And À with memory I 
I ANAC Al I INX H 23 I MOV H.E 63 I  RST 1 CF I I ANA r 4 And register with A I 
I ANA D A2 I INK SP 33 I MOV H‚H 64 I RST2 D7 I I ANI 7 And immediate with А i 
I ANA E A3 I JC DA I MOV H‚L 65 І RST 3 DF I I CALL 17 Call unconditionnel I 
I ANA H Ad I M FA I MO H,M 66 I RST 4 E7 I I cc 11/17 Call on carry I 
I ANA L AS I JMP сз I MOV L.A EF 1 RST 5 EF I I CM 11/17 Call on minus (signe) i 
I ANA M A6 I  JNC D2 I MOV L,B 68 I RST 6 F7 I 3 CMA » Compliment А 1 
I ANI EG I JMZ C2 I MOV L‚C 69 I RST 7 FF I i CMG 4 Compliment carry I 
I CALL CD I JP F2 I MOV L,D 6A I RZ св I I CMP M 7 Compare memory with À І 
Ir «Ge DC І JPE EA I MOV L,E 6B I SBB A 9F I Es CNET 4 Compare register with À I 
I СМ FC I JPO E2 I MOV L.H 6C І SBB B 98 I EENE ome Call on no carry I 
I CMA 2F n 12 CA I MOV L.L en 1 SBB C 38 1 I CNZ 11/17 Call on no zero I 
I емс 3F I LDA ЗА I MOV L‚M 6E I SBBD ЗА I X CE А Call on positive I 
I CMP A BF I АКВ OA I MOV MA 77 I SBBE 9B I Lee HA Call on parity even I 
I CMP B B8 I  LDAX D 1A I MOY M.B 70 I SBB H зс I 
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I .RM 5⁄11 Return on minus I 
I RNC 5/11 Return on no carry I 
1 RNZ 5/11 Return on no zero I 
I RP 5/11 Return on positive i 
1 RPE 5/11 Return on parity even I 
I RPO 5/11 Return on parity odd I 
I RRC 4 Rotate À right I 
I RST LA Restart I 
I RZ 5/11 Return on zero I 
I SBB M 7 Substract memory from A With borrow I 
I SBB r 4 Substract register from À with borrow I 
I SBI 7 Substract immediate From À with borrow I 
I SHLD 16 Store HL direct I 
I SPHL 5 Transfert HL to SP I 
I STA 13 Store À direct I 
I STAX B 7 Store À indirect I 
i STAX D 7 Store A indirect I 
I STC 4 Set carry I 
I SUB M Z Substract memory from À I 
I SUB r 4 Substract register from À І 
1 SUI 7 Substract immediate from À I 
I XCHG 4 Exchange DE and HL I 
I КВА M 7 Exclusive OR memory with A I 
I XRA г 4 Exclusive OR register with A I 
I KRI 7 Exclusive OR immediate with A I 
I XTHL 18 Exchange HL and top of stack I 
ж E DE 36 C XX 36 E E DE X HE DE HE € DE E € XO ж E E € E E DE 36 NE 36 DE XX JE H X 36 PE IE DE PE 36 Э© DE € E 36 3⁄2 IE 36 36 Э© 3€ 3€ 36 


(c) IDC/DAIclic & Henri-Pierre Legry 1986 


REPONSE au JEU-CONCOURS du DAICLIC No 5 
— = SF ЕЯ A zz Gm m x= SSR ищ пш шшш ііі EE ES шш ша шщ эш шї у шї rers DD О nm QNO Ge un ш 
Le seul problème de cet exercice venait de la manière 
dont le DAI affiche les nombres supérieurs à 99999. 11 
fallait donc faire quelques tests pour ajouter quelques 
zéros oà cela était nécessaire ! 

Voici le programme qui en résulte : 


IMP INT 
FOR I-123456 TO 987654 
I$-STR$(I) 
11%-МІр%41%,1,1) 
I2£-MID£$(IS,2,1) 
IS#=MID#(1#,4,1) 
IF ІЗФ-"Е" THEN I3$-"O":14$-"O":IS£-"O":164-"O":GOTO13 
IA$-MIDS(IS,5,1) 
IF 144="Е" THEN I4$-"Q":15$-"O":Ió$-"O":GOTO 13 
IS#=MIDS(1$,6,1) 
10 IF I5$="E" THEN IS#="0":14#="0":GOTO 15 
1i I6$=MIDS(I$,7,1) 
12 IF 16$="E" THEN I6$="0" 
13 IF 11#=12$ OR 1i#=I3$ OR Ii1$-144 OR 11+=15$ OR 
11#=16$ THEN 17 
14 J$-IAf-ISf-I6S$-11$-I2$4I135£ 
15 J=VAL (J$) 
16 IF (J/1)=INT(J/1) THEN PRINT "ELLE = "4158: 1483 Idée 15% 
17 NEXT I 


OO DS GM ra 


On vérifie que TACLEF=142457 divise bien LEFTAC-857142. 
Donc ELLE = 5885. 
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I CPI 7 Compare immediate with A I 

CPO 11/17 Call on parity I 
i cz 11/17 Call on zero H 
I DAA 4 Decimal adjust А I 
I DAD B 10 Additionn BC to HL H 
I DAD D 10 Additionn DE to HL I 
I DAD H 10 Addition HL to HL I 
i DAD SP 10 Addition Stack pointer to HL I 
I DCR M 10 Decrement Memory £ 

DCR r 5 Decrement register i 
I DCX B 5 Decrement BC i 
I DCX D 5 Decrement DE É 
I DCX SP 5 Decrement Stack pointer T 
I DI 4 Disable interrupt I 
ТЕ 4 Enable interrupt i 
I HLT ? Halt i 
I IN 10 Input H 
I INR M 10 Increment memory I 
I INR r 5 Increment register i 
I INX B 5 Increment BC I 
I INX D 5 Increment DE I 
I INK H 5 Increment HL I 
I INX SP 5 Increment Stack pointer I 
I JC 10 Jump on carry I 
I JM 10 Jump on minus I 
I JMP 10 Jump unconditionnal I 
I JNC 10 Jump on no carry I 
I JNZ 10 Jump on no zero I 
I JP 10 Jump on positive I 
I JPE 10 Jump on parity even I 
I JPO 10 Jump on parity odd I 
I JZ 10 Jump on zero £ 
I LDA 13 Load a direct I 
I LDAX B ? Load А indirect I 
I LDAX d 7 Load À indirect E 
I LHLD 16 Load HL direct I 
I LXI B 10 Load immediate register pair BC I 
I LXI D 10 Load immediate register pair DE i 
I LXI H 10 ^ ш 2 " HL I 
i LXI SP 10 " d Ë SP І 
І МУІ М 10 Move immediate memory I 
I MVI r 2. Move immediate register i 
I MOV Myr 7 Move register to memory I 
I MOV r,M 7 Move memory to register I 
I MOV ri,r2 5 Move register to register I 
i NOP 4 No-operation I 
I ORA M 7 Or memory with А I 
I ORA r 4 Or register with А £ 
I ORI F Or immediate with A i 
I OUT 9 Output 1 
I PCHL 5 Transfert HL to PC I 
I POP B,D,H 10 Pop registers BC,DE or HL off stock i 
I POP PSW 0 Pop A and flags off stack I 
I PUSH B,D,H 10 Push registers BC,DE or HL on stack I 
I PUSH PSN 0 Push A and flags on stack 1 
I RAL 4 Rotate À left throug carry I 
i RAR 4 Rotate À right throug carry H 
I RC 5/11 Return on carry I 
I RET 10 Return I 
I RLC 4 Rotate À left I 
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e e 
PAGE Ol -- PIGEON AGILE 
e 1 REM ЖЖЖ LE FIGEON AGILE #44 ө 
2 КЕМ 
e 3 REM KAK (с) TILT et Е.Б ЖЖЖ ge 
4 REM 
5 REM 
é REM 
e 7 GOSUR 9000 e 
100 CLEAR 2000:GRD=1:GOSUB 8000:GOSUR 1000:GO0SUB 2000: GOSUE 5000: 560508 4000 
@ 110 REM Initialisation du jeu e 
120 CHANCE=1 4: REM Farametre de difficulte 
e 130 BÜSUB 2100: 60508 1100 e 
131 REM Deplacement du chasseur et de l'oiseau 
140 IF INT(RND (CHANCE) ) =0 THEN GÜSUB 1100 e 
@ 150 IF PIGE2O THEN 150 
181 КЕМ S'il y a encore des oiseaux vivants e 
% 140 MODE O:PRINT СНАФ (12) :РОКЕ #75, 95 
170 IF PT= THEN CURSOR 3,12:PRINT "Vous n'aimez les Oiseaux que dans votre 
assiette !!.,":60TD 200 e 
e 180 IF FTS10,0 THEN CURSOR 4,12:PRINT "Vous avez vu Les oiseaux’ 
d'Hitchcok, ca se voit...":GOTO 200 
190 CURSOR 7,12:PRINT "BRAVO! Voila un defenseur des passereaux !!,.," 9 
e 200 COR=1:CURSOR 15, 10:PRINT "Score, vous avez";PTi" points" 
205 IF PIGE=0.0 THEN COR=0 
e 210 CURSOR 15,9:FRINT "Il vous restait "SPIGE-COR;" oiseaux" в 
230 CURSOR 27,2:PRINT "Tapez Г SPACE 2 pour continuer"; 
3600 FOKE 475,98 
е 510 CALLM #D&DA ® 
320 PRINT CHR$(12):GOTO 100 
BOO END 
@ 999 КЕМ KAK INITIALISATION DU CHASSEUR xxx e 
1000 TIRX=20: TIRY=2: XB=20:yB=1:DXB=0;:RETURN 
e 1009 REM ¥¥¥ GESTION DU CHASSEUR ET DE SON TIR ai e 
1100 F DXB=0 THEN IF RND(1) 20.5 THEN DXB-(XD-XE) 
e 1110 CODE=0: X=XB:Y=YB:BDSUR 5000: XB=XE+SGN (DXB) : DXB=DXB-SGN (DXB) e 
1118 F ХВчХП AND YBzYO THEN FIN-1 
1116 UCODEz3:XzXB:Y-YB: GÜSUB 5000 
e 1120 F INT(RND(1O)) =0 THEN 1150 e 
1130 F TIRY<20 THEN 1150 
1140 CODE=0: X=TIRX: Y=TIRY:GOSUB 5000: TIRX-XB: TIRYSYB«1 
e 1145 CODE=2: XeTIRX: VeTIRY: GOSUR 5000 e 
iisü GOSUR 1300 a: X=TIRX: Y=TIRY:GOSUB 5000 
1150 #20 OR TIRYSYO+1 THEN ТІКҮ=20: RETURN 
e 1170 TIRY=TIRY+1:IF INT(RND(CHANCE/4))=0 THEN TIRX=T IRX+S6N XO-TIRX e 
izoo CODE-2:XsTIRXs: Y=TIRY: GOSUB 5000 
1210 RETURN 
е 1299 REM Regarde si l'oiseau est touche e 
1300 IF TIRX«XO AND TIRY=YO THEN FIN-1 
510 RETURN 
e e 
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"А OB < “ІБЕПМ LE 
FAGE 0 FIGEON AGI e 
REM ЖЖЖ INITIALISATION DE L'OISEAU Xx 
X026: YOs2G: FINS 
RETURN 
e 
2099 REM Kik GESTION DE L'OISEAU ##x 
2100 GOSUB 1300: CODE-0:X-2X0:Y-YO:GÜSUR 5000 
2110 CL=#4001:CALLM 8502D.CL: IF Сіс<20 AND Yé20 THEN YO-YO-1 Ф 
2120 CL=#4002:CALLM $502D,CL:IF CL<>0 AND Ypi THEN YD=YD-1 
2130 CL=84004:CALLM #502D,CL: IF CL<>0 AND X£43 THEN ХО=Х0+1 
2140 CL=#4008:CALLM #SQ2D,CL:IF CLZ?O0 AND X526 THEN XO0=X0-1 Ф 
2150 IF FIN-1.0 OR (XO=TIRX AND YO-TIRY) DR (ХП-ХВ AND YO=YE) THEN GOSUR 
4200:G0SUB 2000 
2160 CODE=4:X=X0:Y=YO:GOSUB 5000 e 
2170 A=PEEK (ECRAN+X0#2+1): IF A=8 AND GRAINsQ AND YO=1 THEN GRAINsi:CODE-1:X- 
ХО: У=У0-1:60508 5000: GRD=GRD-1:GOSUE 4080 
2180 CL-82020: CALLM #502D,CL:IF XO=4 AND YO=20 AND CLE 20 AND GRAIN=1 THEN e 
GüSUR 4100 
2190 RETURN e 
2999 КЕМ +++ MISE EN FLACE DU DECOR +++ 
3000 PRINT CHR#(12):COLORT 0 10 0 O:POKE #75,52 
3010 FILL 296,0 309,177 14 e 
3020 РА5-20:Х-0:ҒОК I=Q TO 40:DRAW 200-Х,177%1 ХМАХ, 177+1 5 
5050 FAS=PAG-1 s X=X+F AS: NEXT 
3040 FILL 297,160 302,168 9 ® 
3080 IF GRD=0 THEN GOSUR 4050:G0TO 160 
3085 Y=Q:FOR Х=0 TO S:CODE=1:GO0SUB 5000: NEXT: GRD=Û 
3090 FOR X=6 TO 43:CUDE-1:1F INT(RND(4))=0 THEN CODE=5:GRD=GRD+1 Ф 
5100 GOSUR 5000: NEXT 
S110 RETURN e 
3999 REM ... INITIALISATION DU SCORE ET DES OISEAUX ... 
4000 PIBE-S:PT-O:CURSOR O,2:PRINT "Score : ";РТ 
4010 CURSOR O,1:PRINT "Nombre d'oiseaux : "PIGE Ф 
4015 CURSOR 30,1:PRINT "L'oiseau dispose de" GRD" vers" 
4020 RETURN 
4050 WAIT TIME 200 Ф 
4050 RETURN 
4080 CUR=49: IF GRD<10 THEN CUR=50 
4085 CURSOR CUR, 1: FRINT GRD e 
4090 RETURN 
4099 REM ... MISE À JOUR DES POINTS ... Ф 
4100 GRAIN=0:PT=PT+1: CURSOR B,2:PRINT РТ; 
4110 IF GRD<1,0 THEN PIGE=FIGE+1:GOSUB 3090:GOSUB 4010:1Е CHANCE +4 THEN 
CHANCE=CHANCE-4 e 
3120 RETURN 
4199 REM ... MISE А JOUR DES FIGEONS ... Ф 
4200 PIBE-PIBE-1:CURSOR 19,1:PRINT PIGE:GRAIN-O 
4210 IF GRD<1.0 THEN GOSUB 3080 
4220 RETURN e 
4999 REM ... AFFICHAGE EN MODE GRAPHIQUE ... 
5000 AFF=(CODE#16+TABLE) #65536+ECRAMN+Y#720+X KR e 
5010 CALLM #2000, AFF: RETURN 
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PAGE Q3 -- PIGEON AGILE 
e (Pascal JANIN, F-73 LA MOTTE SERVOLEX) 
| 
7999 REM ... INITIALISATION DES PROGRAMMES ASSEMBLEUR ... е | En réponse au petit problème vidéo dont nous faisait part E. Boucheron (DAICLIC 
8000 MODE 6A:COLORG 9 11 5 14:ЕСКАМ=РЕЕК (#88) +РЕЕК (#89) 4256 i 4, page 65), voici l'explication du phénomène rencontré. 
8 TABLE=#5100:FOR I-485000 ТО #5049:READ A:POKE Т,А:МЕХТ | 
8 FOR IsTABLE TO TABLE-15X5-1:READ А:РОКЕ I,A:NEXT ë | On ne peut le qualifier Че  VIDEO-BUG, à la rigueur de VIDEO-ANDMALIE où de 
8 RETURN | VIDED-DEMENCE (arrêtons de déconner merci  !) ! En fait, cette anomalie 
\ apparente dans la vidéo en mode is couleurs peut selon les cas être tres 
8099 REM --- AFFICHAGE EN LANGAGE MACHINE --- e i profitable ou emmerdante comme c'est pas permis. de m'explique: aprés avoir 
8100 DATA #F5,#E5, #09, FCS, #11, 3, O, #19, #56, #28, #56, Н2В, HAE parcouru d'un oeil attentif la page 65 relatant cette bizarrerie, j'ai décidé de 
8110 DATA #28, #44, #26, 9, 2E, 2, SES, HDS, HA, 4812, S, #13, #2D | voir si mon DAI s'avisait de réitérer la méme chose. Eh bien oui ! Messieurs 
8120 DATA 8C2,415,550,8D1,821,4854,0, 819, HER, HEL, #25, #02, #13 e i les Dâlistes, soyez tous solidaires: le problème est commun à toutes vos chères 
8130 DATA #50,.#C1,#D1,#E1,#F1, HCH machines ! 
81457 REM ---TEST DES TOUCHES ENFONCEES --- $ i Après ce long préambule, voici le comment et le pourquoi de cette fantaisie en 
8150 DATA #F5, FES, #05, HCE, #11,35,0, 819, F7E, RFS, 832,7, HEF, HSA | mode 16 couleurs graphique. Les deux octets successifs définissant un bloc de 8 
8160 DATA 1, FFF, FFE, #26, #46, #23, #77, HEE, #36, 0 pixels contiennent d'une part l'organisation des points en 0 ou 1 (adresse D 
8170 DATA #C1,.#D1,.#E1,#F1, HCH e haute) et d'autre part la couleur des bits précédents à 1 et à © (dans cet ordre 
| en 2 x 4 bits, adresse B basse). Ce que le manuel ne dit pas, c'est à quel point 
8197 REM TABLE DES CARACTERES la gestion de la couleur associée au bit 0 est extravagante ! En effet, la 
8198 REN qas @ | couleur de fond définie en E ne prend effet qu'à partir du moment où un bit à 1 
8199 REM Caracteres d'effacage | est placé en А! Sinon, ce sont les couleurs précédentes du fond qui se 
8200 DATA 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 | propagent d'un octet à l'autre. Autrement dit, tant qu'une couleur de fond ibit 
e | à û) ne recontre pas d'"obstacle" (bit à 1), elle se propage d'un octet à 
8209 REM Caractere du carre plein | l'autre, sinon, c'est la nouvelle couleur de fond {définie avec celle du bit 1 
8210 DATA 0,255, 0, 255, 0, 255, 0, 255, 0, 255, 0, 255, 0, 255, 0, 255 | rencontré) qui prend la place de l'ancienne à partir de l'"obstacle". Figé ? Non 
e 2 Alors passons à la pratique... 
8219 REM Dessin du tir du bonhomme 
8220 DATA 16,16,16,15,16,16,16,16,16,16,16,16,16,16,16,16 Allumez votre DAI et rentrez l'exemple de la page 45. Jusqu'au PORE HEE, HAA, 
e tout marche bien. Exécutez le FOKE suivant: un horrible point noir apparait à 
9229 REM Dessin du bonhomme gauche ! Reméde: faites un POKE #BB02,#AA: le point noir est remplacé par de 
8230 DATA û, 108, 0, 40,0, 56, 198,56, 18, 2, SB, 2, 18, 42, 58,2 l'orange. De plus en plus fort, faites FOKE 4BBO1,0 et c'est la ligne toute 
e entière qui est orange alors que (notez bien ! j'vais pas tout répéter) 
8239 REM Dessin de l'oiseau initialement la couleur du fond était définie en rouge ! 
8240 DATA 0,0,0,0,16,15,40,56,68,238,68,0,0,0,0,0 
Ф Un petit schéma vaut mieux que toutes les explications du monde: 
8249 REM Dessin du ver (pour l'oiseau) 
8250 DATA 8,255,4,258,24,255,22,255,0,255,0,230,0.255,0,255 adresse | BROS BROS ВВ01 BEGO 
9000 COLORT 5 15 Q O:PRINT CHR$ (12) e 
9010 CURSOR 15,20:FRINT "LE FIGEON AGILE” valeur FF EO AB 3 
9015 PRINT ТАВ(15); "ЖЖЖЖ" affichage| d J J J J J J J ERRRERER 
9020 PRINT : PRINT :FRINT TAR(14); "Vous disposez de cinq oiseaux," e (normal) 
9030 PRINT TAB(14);"il s'agit de nourrir la nichee" 
9040 PRINT TAR(14);"au moyen de vers . Mefiez-vous" Aprés un РОКЕ #BB01, #55 
9050 PRINT TAB(14); "du chasseur et de son gourdin." e 
9050 PRINT sPRINT TAÓB(14);"Vous manipuler l'oiseau au” BROS BRO2 BROIL BEGO 
9076 PRINT TAB(14); "moyen des fleches. Tapez SPACE" 
9078 PRINT TABí14):"pour poser le ver dans le nid" е FF ES 35 13 
9080 PRINT :РЕІМТ :PRINT TAR(14)4" BONNE CHANCE !" 144104044740, МВЕВЕВЕВ 
9090 CURSOR 30,2:PRINT "Pour commencer tapez SPACE": } t t 1 : 
9100 CALLM *D6DA:PRINT CHR$(O0Z):RETURN e couleur du fond obstacle: bit à 1 en BBOl ! 
précédente la couleur du fond définie 
qui se "propage"... en BBOO prend le relais 
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Aprés un FOKE #BBO2, HAA: РОКЕ #В801,#5С:РОКЕ ABAFF, #00 















BROS BEO2 | вво BBOO BAFF BAFE BAFD BAFE 

D 61 3 sg Ge Eo az Fo QUI RIT DAICLIC №): 

oocococbo DORBBRRR RRRRRRR Г AR ep aaa DAI QUI RIT (EXCLUSIVITE э: 
EE. 

tous en orange, obstacle: la pas d'abstacle: F e T Eo BA SIE 

c'est normal nouvelle couleur ancienne couleur TT) j = 一 一 = 一 = 一 = 一 一 = 一 = 一 = 一 = 一 一 一 一 = 


du fond prend le relais (rouge) du fond (Paul CALVEZ, PELUSSIN (F) ) 


se propage 











Vaici un des plus courts utilitaires-machine qui permet d'avoir accès 
directement aux mots du Basic aprés avoir appuyé sur la touche TAR? plus une 
autre touche. Il procure l'équivalent de confort des claviers multi-fonctiorns, 
qu'on trouve de plus en plus sur les 0.1. familiaux, en évitant au programmeur 
de se tromper en tapant les ordres basic en toutes lettres. Comme la liste est 
brève (moins de 250 octets), la meilleure formule pour entrer le programme, 
consiste à se servir de la commande £S^ubstitue de l'Utility. C'est l'affaire 
d'un petit quart d'heure. Après cette (pénible) opération, et les vérifications 
d'usage, il reste à dévier le vecteur RCLOSE, afin que le programme soit rendu 
auto-start. Ceci se fait en plaçant un JMP ОЗВОН en 2D4H : toujours avec le 455 
du moniteur, faire 8205 пп-ВО nn-O3, et le tour est joué. А la fin du 
chargement, les pointeurs basic sont ainsi automatiquement  ajustés, le vecteur 
KST 1 «Utility/encode* est détourné vers le programme. 


Bas d'obstacle: 

la couleur du fond précédente obstacle: la couleur 

se propage noire du fond prend 
le relais (mais 
n'apparaît pas) 





Vous comprenez à présent 7 Oui 7 Parfait ! 





Vous devez maintenant comprendre également pourquoi, en graphique 16 couleurs 
{ауес un COLORG ХА BC précédent), les adresses vidéo sont remplies de #FF 
(adresses hautes) et #X0 (adresses basses), plutôt que 800 et ЖОХ (même effet) ? 
Parce que, dans le deuxième cas, la moindre tentative de changement de la 
couleur de fond dans une adresse basse entrainerait la mise au méme état de 
toutes les couleurs de fond en aval ! fessayez pour voir...) 





ATTENTION : il faut sauver la routine avant de la lancer. Faire, 
т---------- sous moniteur : 204 206 CLAVIER BASIC. Еп effet, la 


Pour finir, sachez que ce phénomène hizarroide, qui se repraduit sur UNE ligne | routine d'initalisation est détruite après son fonctionnement 


еп graphique 16 couleurs, sévit également sur TOUTES LES LIGNES HORIZONTALES 
DEFINISSANT UN CARACTERES en mode 16 couleurs/caractére ! Effets imprévus 
garantis ! 
A titre d'exemple, rentrez ce court programme BASIC qui affiche le texte 
"„.ANDjpRMAL" en faisant varier les couleurs fond/caractére sur une ligne 16 
couleurs caractère / basse résolution / hauteur maximale, et essayez de prévoir 
puis de comprendre le résultat ! C'est VIDEO-DEMENTIEL, non 777 


Four l'utilisation, il suffit d'appuyer sur <ТАВ> quand on veut écrire un 
mot-clé basic. Le curseur se change alors en un ‘pavé’, signalant que la 
routine attend la touche assignée au mot-clé désiré, Quand cette dernière est 
frappée, le mot basic est affiché, et le curseur reprend son aspect habituel. 
Il ne vous reste plus qu'à découvrir les mots qui ве cachent désormais sous 
chaque touche de votre clavier. Le mieux est de les essayer toutes, une à une ! 


69 13 00 77 gz 


£ с 20 59 ZZ ZZ 20 IW ZE ЕС ZO dé ZZ vo Q 
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LE Әр TO 92 49 18 IB 40 40 £0 LO 84 SQ 54 £2 30 
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ES 98 JT 06 Ur 28 JS 28 68 28 18 28 UL IE dH HB 
Z 08 16 28 IJ 48 86 28 22 48 ZI ав го ав 95 48 
ód HB 2028 Zt 28 39 28 64 48 IO 28 zd d8 83 яв 
ҮП 28 60 28 EL 28 AT q8 EZ 05 єл IB 59 38 BE 06 Q 
18 d8 qr O6 BF 28 SI 39 LE 48 9H 28 YE 28 AL 06 
GQ #8 Z4 HB Ut 28 £6 06 66 05 33 AB 90 06 00 Dé 0 5 
ЯЗ 28 0Z 98 60 dB UH 06 68 O6 3£ 29 06 AT To OB 0036 





ІМР ІМТ 





10 PRINT CHR#(12)::COLORT 8 00 O 
11 POKE #E921,#CF:AD=#B891F 

13 READ D$:1F Dé-"^" THEN END 

11 CALLM $D&DA:POKE AD,ASC(DS):AD-AD-3:READ D2:PÜKE AD,D2:AD=AD+1:G070 13 
i8 DATA ".",B15,"." RES, A, ВАЕ, М, 827, 0, 818 
15 DATA j,825,p,440. R, BEF, M, BCD, A, HSE 

170 DATA L,#42," 





M CY 
4 4 






Bonne compréhension... et bon amusement ! 
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NOUVEAUTES POUR LA CARTE XBASIC 


(Christian POELS, janvier 1984, d'aprés un courrier de Uwe WIENKOP) 






Jusqu'à présent, la carte XBASIC de H. Tegethoff ne permettait d'utiliser que 
i Commodore 1541 (ou les cassettes audia...). 

Maintenant, que tous les possesseurs de drives a (ou Indata pour ceux qui 
sont & retard d'une uerre fou DAI pour ceux qui le sont de deux...) ) se 
uissent: La carte compatible avec leur systéme 

Elle est compatible avec les deux systèmes de disquettes:  Prodata et 
; De plus, sachez qu'il est méme possible (pour les plus fous...) de 
connecter SIMULTANEMENT sur votre cher DAI: 4 drives Frodata + 4 drives 
Commodore + 4 DCR fet oui, ga marche aussi maintenant avec les DCR 1) +2 
enregistreurs audio !!!... Pour vous prouver que cette configuration est tout à 
fait valable, il esiste un programme de copie permettant de passer du système 
Prodata vers le Commodore et l'inverse C'est quand méme une bonne nouvelle 
pour ceux que la compatibilité cbsède ! Ce premier pas sera bientôt suivi 
d'autres: Une adaptation du Ken-DOS sur cette carte est en préparation... La 
carte XBASIC constitue donc un événement pour le DAI dont les différentes 
mémoires de masses proposées devenaient de moins en moins compatibles 

































Les nouvelles instruction du Xbasic pour les drives Prodata sont: 


#4: DOS - Befehle: 
DISK CAS DIR . EDIR SDIR DLOAD DSAVE DRUN RDSK WDSK 
RSEQ WSED OPEN CLOSEA CLOSE GETDIR FIELD GETH FUT# GET 
PUT DEL CREATE LOCK UNLOCK RENAME SIZE DATE FORMAT 
BACKUP VERIFY 

#5; COPY TYPE RESETD MESG MAKEJOR DOJOR TSAVE ID SEEK DROP 
FREE 
DISKOUT= DISKIN- 

#6: TED - tools (#127000) 
ВАБЗТЕР BAS, CLOSE TED*DTV TED2REM TED>BAS TED2CPM 
СЕМ>ТЕр ЕСЕР 
LOW= SPOOL] SFARM= 





La plupart des instructions des canaux #4 et #5 ressemblent très fort aux 
instructions disponibles dans le package UDOS de Prodata. Mais voici les 
différences notables: 


L'UDDS sur EFRÜM n'utilise pas du tout l'espace RAM utilisateur. Far conséquent, 
vous pouvez utiliser les programmes LM sans aucune restriction mémoire, que vous 

iez par contre avec le DOS 3.0 et avec 1'UDUS en КАМ. De plus, vous ne devrez 
plus attendre le chargement du système DOS, car il est déjà sur EPROM... 





Différences dans les instructions: 





DIR 7 EDIR / SDIR exécutent une instruction DIR. Le point 7.7 est une 
abréviation de l'instruction DIR. Il y a deux possibilités:DIR/EDIR/SDIR avec un 
nombre (ou sans arguments la signification est: DIR du drive par défaut) 
provoque un DIR normal ou un DIR étendu (EDIR) ou un super DIR {SDIR). EDIR et 
SDIR affichent des informations supplémentaires sur les fichiers. Par exemple: 
le type des fichiers de données (INT, FPT, STR), les adresses de début et de fin 


des  Brogammes machine’ et aussi le nombre de lignes des fichiers ‘source’ АНТ 
(seulement ЕРІН). 
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La deuxième possibilité est: il est possible de choisir un masque pour les 
fichiers (cette possibilité n'est pas implémentée dans la version de Frodata !). 
Far exemple, vous souhaitez n'afficher que les programmes BASIC sur le disque 
dans le drive 2: DIR "$.BAS" (idem роце EDIR et 8018). 

D'autres exemples: 

DIR "рту Ж.Ж - tout ce qui commence par DTV. Le type ne joue pas. 

EDIR "D?77-doc. BAS" - les Zè et 3è caractères du nom sont ambigus (cf. CP/M). 





DIR "X.DB8:2": 
DISK NAME: Texte / DES DISK DATE: 851014 


DAI-Adr „DES R/O 216.000 
Adressen. DBS 








FrgNamen, DES 716. 

Buecher „DES 7814 
Software. DES 10706 
VIP-Adr „DES 1418 


FREE DISK SPACE: Sé K 


EDIR et SDIR calculent la longueur réelle des fichiers, tandis que DIF essaie de 
calculer la longueur des fichiers d'après les informations données dans la 
directory et cette valeur n'est valide que pour les fichiers jusqu'à 16 K. Ceci 
est une question de vitesse. Four les plus grand fichiers, vous aurez la réponse 
“15.000, Si vous voulez obtenir la longueur réelle, mème pour les grands 
fichiers, vous devez utiliser EDIR ou SDIR: 





DISK NAME: Texte / DES DISK DATE: 851014 ! 


DAl-àdr „DES R/O 24366 
Adressen. DES 2138 
PrqNamen. DES 18637 
Buecher „DES 7814 
Software, DES 10706 
VIF-Adr „DES 1418 


FREE DISK SPACE: 56 K 


DEL, LOCK, UNLOCK, RENAME et COPY fonctionnent de la méme fagon: vous pouvez 
utiliser "X" et "?" pour les noms de fichiers ambigus, comme en CP/M: par ех. 
DEL "X.RAS", LOCK "x. x" 


RENAME permet aussi d'utiliser les "wildcards": 
RENAME  "X.ARR","X.SRC". La première astérisque a le méme rôle que dans un 
DELete. La deuxième dit au DOS, que cette partie du nom doit rester la méme que 
dans le nom de fichier original. Far ex.: RENAME "g. ARR", "Я. SRC": 
АНТ „ARR 2 ант . SCR 
DTV-1 „ARR DIV-2 „ВСЯ 





ainsi de suite... 


COPY permet les mémes possibilités que dans RENAME: 
COPY fichier$,fichier$ 
СОРУ fichiers 
COPY “$. a" ainsi de suite... 
Bi vous n'utilisez qu'un paramètre: le fichier est copié depuis l'autre drive 0 
-> 1, ou 1 -> 0. Il faut préciser à la commande de la carte dans quel ordre on 
utilise les drives. Ex: 

0/1 drive de gauche 
ou: 0/2 drive de gauche 






drive de droite 
1/3 drive de droite 

















DAICLIC 6 DAlnamic 33 31 








DAICLIC 6 











— 


La touche crochet (parenthèse carrée) ouvrant est une abréviation de  DRUN 
"FILE", Il suffit de taper (FILE (sans quotes) 1 


La commande FREE affiche la taille de la place libre sur le drive spécifié ou le 
drive par défaut. 


Les autres commandes sont les mêmes que dans le UDOS PRODATA. 


Les commandes du canal #6 (les outils TED) permettent de traduire des fichiers 
BASIC en format fichier TED au en format TED lisible via ГРИМ, Far conséquent, 
il est possible de traduire des fichiers BASIC DAT pour travailler sous MBASIC 
ou BASCOM... 


Il est aussi possible de commander en supplément, une RAM de BK qui vient 
s'ajouter sur la carte XBASIC. Cette RAM peut ètre utilisée comme buffer 
d'imprimante, et est activée via la commande SFODL = parmi (,parmz). 


Le premier paramètre contient le nombre de banques RAM que vous voulez utiliser 
pour le tampon: 1..4 et le second paramètre (optionnel) contient un nombre qui 
représente le type de sortie du buffer: 





Q normal (par défaut) sortie aussi sur écran, fin de ligne: Орой 
E sortie uniquement sur buffer, fin de ligne: ODOA 
= sortie aussi sur écran, fin de ligne: OD 


= sortie uniquement sur buffer, fin de ligne: OD 


Ci Re 





ou SEDDL = OFF désactive le buffer. FOKE #151,Х х=) dir ige les sorties vers 
1 


le spooler 


Cette fonction augmente de 25 DM le prix de la carte. 





Dans le package UDDS se trouvent deux disques utilitaires. Ces programmes se 
trouvent aussi sur EPROM ! Les programmes sont DUMF et SCOPY. 116 permettent 
une recherche facile d'informations sur le disque. 


SCOPY est un super COPY. Ce programme vous permet de copier des fichiers depuis 
le drive Ô vers le 1 ou vers une cassette ou un drive Commodore. Le programme 
lit la directory complète du drive O. 


Vous pouvez ensuite faire défiler la directory sur l'écran et marquer les 
fichiers que vous voulez copier. Vous pouvez aussi choisir l'ordre dans lequel 
vous voulez les copier. Lorsque vous avez marqué tous les fichiers à copier, 
vous pouvez démarrer la procédure de copie. Et maintenant, tous les fichierssont 
copiés dans l'ordre souhaité. C'est trés pratique si vous voulez copier quelque 
chose sur cassette: vous placez tous les fichiers sur une disquette et ensuite, 
vous utilisez  SCOPY pour les recopier en un bloc. Vous n'êtes pas obligé de 
rester devant l'ordinateur et d'attendre la fin de chaque action de copie. Се 
programme tourne aussi sur drive Commodore et il faut préciser que lors d'une 
Copie, ies fichiers sont copiés par blocs de telle façon que la KAM du DAI soit 
utilisée au maximum. Cela réduit donc le nombre de manipulations dans le cas 
d'une copie de disquette vers disquette avec un seul drive. 


Revenons au système РАОРАТА: une disquette est aussi fournie avec deux (petites) 
routine de BOOT et avec quelques autres programmes. La procédure de HOOT est 
nécessaire car le DAI envoie un signal lors d'un RESET au bus DCE et le floppy 
répond en lisant le fichier $BOOT. Mais les fichiers EXEC.PRL ne sont plus du 


tout nécessaires. Le second fichier #B00T.USE permet d'effectuer un autoexecute 
d'un fichier appellé "$$$. BIN", 
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Les autres pragrammes: 
- un programme permettant un DIR (avec tri) sur imprimante en deux colonnes 
- un tri de directory et un compresseur de programmes 

- un pragramme qui vérifie si certains blocs sont utilisés doublement sur le 














disque (cela arrive sous certaines conditions, par ex., si vous changez le 
disque dans le drive sans un RESETD ! - un bug dans le slave BOS). 
- etc... 


Comment se procurer la carte XBASIC version drives Frodata 7: Tout d'abord, il 
faut se procurer (si ce n'est déjà fait) les drives Frodata et posséder la 
facture de ces drives, ou au moins du "UDOS". Vous envoyer alors votre commande 
en n'oubliant pas de joindre votre facture (ou une photocopie certifiée 
conforme...) à l'adresse suivante: 






Mr. Uwe WIENKOP 
Laerfeldstr., 54 
D-46530 BOCHUM (R.F.A.) 
T. (0234) 35 61 32 


Les prix (à titre indicatif, se renseigner pour les éventuels changements): 
XEAEIC 287 DM 
ComDOS 9 DM (facultatif) 
EFROM UDOS 70 DM 
RAM SPOOLER 25 DM (facultatif) 


Dernière minute: le CF/M fonctionne maintenant sur la carte Xbasic + drive 1541, 
et permet entre autres, l'accès à la programmathéque CP/M du Commodore 128 111 
Plus de renseignements dans le prochain numéro... (ou sur les serveurs MM2...) 


eed 


DAKLE the best foc the BAT! 


189527295 Е 


баланысы. 
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"LE" RESEAU BELGE INTER-CLUBS 


{Christian POELS, d’après le "Micro-BDV-Press" {1) ) 


Burtka 


te à un ë 






cord intervenu entre plusieurs clubs belges de micro-informatique, 
a été idé de n'implémenter qu'UN SEUL RESEAU de transmission de données, 
lque soit le nombre de clubs et quelque sait le nombre de "SERVEURS" 
télématiques. 





Dans un premier temps, le RÉSEAU sera wallon et bruxellois, mais rien n'empéche 
de l'étendre au nord du pays si les clubs wallans sont d'accord et si nos amis 
néerlandophones le demandent. 


Actuellement, les clubs suivants sont d'accord de participer à l'idée: 


AMMI Г A.I.D.E.8. (LIEGE) 
HMICRORDI (LIEGE) 
C.R.I.V. (VERVIERS) 
IDC (INTERNATIONAL) 
“CLUE (WAVRE) 
[CRO-G.D,V. (MICRONET-2) (VERVIERS-LIEGE-BRUXELLES-FARIS) 
MICRO-NET-3⁄4 ~ WAREMME 
MAC BES (BRUXELLES) 
liste non limitative... 








Dans la phase "1" (actuelle), seul le transfert des boites postales est 
opérationel. Chaque utilisateur doit se servir DU MEME  FSEUDONYME D'ACCES dans 
chaque  SERVEUR afin de ne pas trop compliquer le "SOFT NOCTURNE" qui doit 
transférer automatiquement les messages et réponses de chacun, dans son serveur 
habituel. Ceci est destiné à nous faire gagner du temps et... de l'argent en 
limitant les appels "interzonaux", 


LE "RESEAU WALLON" est surtout actif LA NUIT ! afin de ne pas encombrer les 
lignes téléphoniques de la R.T.T. et de bénéficier du tarif de taxation réduit. 
Les SERVEURS "s'appellent" automatiquement, vers 5 ou 4 heures du matin, afin de 
s'échanger des données (Ordinateur "dispatch"). 


Un software fonctionnant "en étoile" est opérationel pour tous les serveurs 
Micro-Net-2. 


Bi vous avez des suggestions et/ou des idées performantes au sujet du 
"BOFT-NOCTURME", contacter notre ami: 


dean PUELINCKX 
Rue de la Liberté, 2 
B-4840 WELKENRAEDT (BELGIQUE) 
T. (0)87/882226 


Merci d'avance de votre collaboration. 
NB: Pour ceux qui ne possèdent pas encore de modems, ils peuvent se renseigner 


auprès de la rédaction pour en obtenir à des prix avantageux ! (possibilité 
i de le commander par la poste) De plus, le logiciel "DaiLink V1.1" 








(distribué par IDC) convient parfaitement pour les connexions sur les serveurs, 
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SERVEURS MicroNet? {tous fonctionnent 24h/24 !): 


% HicroNMet2 (LIEGE MAN): 
HicroMet2 (LIEGE “В” 
MicroNet2 (LIEGE "pug 


X MicroNetZ2 (BRUXELLES "A"): 
MicroNet2 (BRUXELLES "B")s 
k HicraNetz (PARIS "дну: 
MicroMetZ7 (VERVIERS "А": 0877 88 
MicroNet2 (VERVIERS MEN): O87/ 88 








Les serveurs précédés de '3^ contiewent l'index IDC qui fournit toutes sortes 
d'informations sur le DAI et IDC: programmes, articles, messages, etc. Бї la 
demande le justifie, d'autres serveurs MICRONET2 s'équiperont de cet index. 


(ij: "Micro-GDV-Press" est une publication mensuelle du club Micro-GDV. 






























































Article original : DAInamic Allemagne 
Traductian : Frédéric Hacquet 


Voici un nouveau logiciel + "Adventure-Interpreter ALADIN” de Marco 
van Meegen (soft original de Scott Adams sur TRS 80) proposé par le club 
DAInamic Germany. Il s’agit d'un programme avec lequel on peut mettre en mémoire 
des aventures s'éxecutant rapidement puisqu'écrites en langage machine, Il 
permet une gestion compacte, et болс la création de nombreuses conditions, 
objets et structures de langage, qui prennent beaucoup moins de place qu'un 
programme Basic offrant les mêmes possiblités, Aladin offre aussi en version de 
hase la posssibilité d'interrompre et de redémarrer un jeu. Ba technique de 
traitement de données permet la création des 254 pièces, 255 verbes et sujets, 
256 objets, В directions, 65536 messages (texte), 257 flags pour les conditions, 
256 compteurs et de nombreuses relations, donc des liaisons (conditionnelles) 

les objets. Пп peut donner des verbes et sujets  abrégés. Celui qui 
écrire une aventure peut utiliser les 32 tests différents, et 
gagner beaucoup de place en gardant les actions standards (GET/DROF) . 













li ne faut désormais plus programmer une aventure sans ALADIN. En plus 


du programme, 7 aventures prétes à jouer 
Miner's adventure 
Savage island 
Strange odyssey 


&dventurelarid 
Burglar’ adventure 
Firate’s adventure 
Fun house 





11 s'agit pour la plupart de scénarios originaux de Scott Adams, mais 
repensés et améliorée, Les aventures sont de niveaux de difficulté variables: 
par exemple,  "Adventureland" est accessible aux débutants, alors que "Savage 
island" est destiné aux aventuriers expérimentés. Le prix de l'interpréteur, 
avec 7 aventures et 10 pages de doc.: 50 DM. Vous pouvez le commander via IDC en 
envoyant la somme de 760 FB. Le mode d'emploi est en allemand et le programme en 
anglais ou ailemand. 
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Voici comment, d'une fagon simple il y a moyen d'étendre la mémoire 
EPROM si vous possédez déjà une carte TOS pour votre MEMOCOM. 11 y a quelques 
mois, ELEKTUUR a publié une petite carte d'extension permettant de faire un 
banking de mémoire avec 4 EPRDMs. 


Le schéma est assez simple et ne demande pas beaucoup de mots. Quand 
on adresse la mémoire où se trouve 1?ЕРКОМ de base (pour le DAI: FOOO-F7FF), on 
adresse en fait une des ЕРКОМ= selectionnée par le 7418138. C'est en effet la 
valeur à son entrée qui détermine si on adresse 1°EFROM 0, 1,2 ous А 
l'allumage ou reset, c'est d'office 1"EFRDM O qui est sélectionnée. Mais comment 
faire pour lire une des EFROMs 1, 2 ou 37 C'est simple: en écrivant à une 
adresse entre ЯҒ000 et #F7FF, une valeur X (ой X = Q, 1, 2 ou 3 selon 17 ЕРК0ОМ 
choisie). Mais attention, avant d'écrire dans une adresse de la zone #E000 - 
#F7FF, il faut d'abord mettre la valeur #C9 à l'adresse #10 pour déconnecter la 
génération d'erreurs du STACK OVERFLOW. 


Le montage de la carte est assez simple et ne nécéssite pas d'outils 
spéciaux. Mais attention, il ne faut pas oublier de raccorder la borne NWDR à la 
borne R/Wíneg) du 8080 (borne 18 du 8080). 


Ci-joint, le schéma de la carte d'ELEKTUUR (numéro de février 1985). 
Dominique CARLIER, 
B-1500 HALLE, 
Membre du DAIC. 























FF1,FF2 = 1С1 = 741574 
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Erratum 


Aan het begin van het vorige artikel 
kwam een programmeerjuweeltje voor 
waar toch een verontreiniging in 
bleek te zitten. 

Het 'kleiner dan'-teken in regel 100 
had natuurlijk een 'groter dan'-teken 
moeten zijn zoals hopelijk de meeste 
lezers uit het bijstaande verhaal 
duidelijk zal zijn geworden. 

Dit máal ben niet ik de schuldige 
zoals sommigen al gniffelend meenden. 

Door het gebruik van een fraaie 
daisywheel printer (margrietwiel 
afdrukeenheid voor puristen) is de 
leesbaarheid van o.a. mijn artikel 
sterk verhoogd. Deze printer heeft 
echter niet al de mogelijkheden van 
een matrixprinter. Hij kent b.v. maar 
96 karakters op het bloempje en zo 
kunnen dan ook niet alle symbolen 
correct weergegeven worden. 

De redactieleden zijn er dan ook 
extra op bezig om de teksten 
vlekkeloos op papier te krijgen. 

Dit lukt dus blijkbaar niet altijd 
en ook in het laatste programma'tje 
is de test op ongelijk nul in regel 
50 er enigzins verwrongen uitgekomen. 





Voor diegenen echter die alleen de 
programma's intikken volgt hier het 
hopelijk nu smetteloze sieraad. 





10 REM FACULTEIT / F.H.Druijff-10/85 
20 INPUT N:PRINT :F=1:GOSUB 100 
30 PRINT N;"! = ";F:GOTO 20 


100 NEN-1:1F N < O THEN GOSUB 100 
110 N=N4+1:F=F*N: RETURN 


Rekenopzet 


Zoals in de laatste twee programma's 
uit de vorige aflevering reeds bleek 
kan het nuttig en soms zelfs noodza- 
kelijk zijn om de rekenvolgorde van 
te voren te overdenken. 

We moeten ons bedenken dat zolang er 
geen haakjes gebruikt worden er bij 
gelijke prioriteit altijd van links 
naar rechts wordt gewerkt. 

Als we hier geen rekening mee houden 
kunnen we voor vreemde verrassingen 
komen te staan. 

Ik geef een paar voorbeeiden en 
nodig U uit die ook letterlijk op uw 
eigen DAI mee te maken zodat U 
overtuigd raakt. 














Overflow 
Tik in : 


*IMP INT 
*A-2147483647 
*?A-10+2 
2147483639 


Het resultaat is dus 2147483639, 
waar we eigenlijk geen computer voor 
nodig hebben om te weten te komen. 

Vragen we de DAI echter eerst twee 
op te tellen en dan pas tien af te 
trekken zal ons resultaat niet weer 
2147483639 zijn maar OVERFLOW, 


*A=2147483647 
*?A+2-10 
OVERFLOW 


Trek hier echter niet de conclusie 
uit dat het dus beter is om eerst af 
te trekken en dan pas op te tellen. 

Eenmaal A--A en de overflow krijgt U 
nu juist bij eerst aftrekken en dan 
optellen terwijl eerst optellen en 
dan pas aftrekken hier juist weer 
probleemloos gaat. 


Het verschijnsel is simpel te 
verklaren door de interne notatie van 
de getallen in de DAI. De DAI slaat 
variabelen en de meeste constanten op 
in vier bytes of te wel twee en 
dertig bits. Het eerste bit daarvan 
wordt gebruikt om het teken aan te 
geven. 

Het grootste gehele getal dat dus in 
vier bytes past is #7FFFFFFF alle 
its met uitzondering van de eerste 
bit zijn dan 1. In decimale notatie 
is #7FFFFFFF 2147483647 zoals we de 
DAI ons zelf kunnen laten vertellen 
door ?#7FFFFFFF in te tikken. 


Ook bij de floiting point getallen 
unnen we vanzelfsprekend hetzelfde 
probleem krijgen. Denk overigens niet 
dat het probleem zich alleen kan 
voordoen in de buurt van de grenzen. 





Fen ieder die de werking van de 
logaritme (al of niet na het vorige 
artikel) en de e-macht duidelijk is 
zal uit het hoofd kunnen zeggen wat 
er uit de volgende opgave zou moeten 
omen, 





*?LOG(EXP(77)) 
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Juist 77. Maar de DAÍ doet niet meer 
mee. De lezers, die niet achter het 
toetsenbord zitten mee te werken zien 
nu in gedachten de OVERFLOW al staan. 

Mooi mis. Deze opdracht geeft geen 
overflow maar de eigenlijk onjuiste 
foutmelding NUMBER OUT OF RANGE. 

Ik dacht deze laatste opmerking in 
het algemeen te kunnen maar de 9511 
mijn trouwe mathchip bleek hier de 
oorzaak. Met de mathchip aan is het 
argument van de EXP-functie beperkt 
tot het gebied tussen -32 en 432. 

De grenzen zelf mogen beslist niet 
meedoen en geeft U een getal buiten 
dit interval krijgt U de foutmelding 
NUMBER OUT OF RANGE. 

Zonder de rekenhulp kunt U de 
grenzen wat ruimer leggen in de buurt 
van 43 in plaats van 32. Deze grens 
is echter anders dan de 32-grens niet 
direct gebonden aan de hardware maar 
aan de opslagmogelijkheid in onze 
vier bytes. Zonder de mathematische 
coprocessor krijgt U wel de verwacht- 
te OVERFLOW melding. 


In het handboek staat dit er ook bij 
maar bij de LOG staat er niets over 
en we worden nieusgierig. 

We doen enige tests en stellen vast 
dat de LOG inderdaad geen last heeft 
van de grenzen die de AMD 9511 stelde 
bij de EXP. 


De gevolgtrekking uit het voorafgaan- 
de zou kunnen zijn om bij extreem 
rekenwerk de mathchip maar uit te 
Schakelen. Niet iets waar de eigenaar 
hem voor aangeschaft heeft. 


Meer problemen 


Maar er zijn meer problemen aangaande 
de nauwkeurigheid. Heeft U enig idee 
hoelang het duurt voor de DAT 
OVERFLOW geeft bij het volgende 
programma'tje ? 


10 A=A+1 
20 GOTO 10 


Ik zou er maar niet op gaan zitten 
wachten als ik U was. Ik denk toch 
gauw dat het rond de twee а drie 
maanden zal zijn. Maar nu : 


10 A!=A!+1.O 





Een stuk langer zuit Ü denken. Ja dat 
mag men wel stellen maar niet tien of 
honderd keer zo lang. Dit probleem 
zal U heel erg lang op een overflow 
laten wachten. Uw wachten zal zal ook 
vergeefs zijn. U zult de overflow 
echt niet meer meemaken en uw nazaten 
(U moet toch iets doen tijdens dat 
wachten niet ?) zullen het tot in 
lengte der tijden ook niet zien. Ik 
weet namelijk zeker dat dit programma 
NOOIT zal stuklopen op een overflow. 


Ik zal U dat aantonen met het 
volgende programma : 


10 А!-1Е15 
20 INPUT T!:PRINT 
30 FOR I=1 TO 100 


40 AlsA!4+T! 

50 NEXT 

60 PRINT A! 

70 PRINT A!-1E15 
80 PRINT 

90 GOTO 10 


Tik het in en run het. Voer bij het 
vraagteken 100000000 (8 nullen) in. 

U zult zien dat het eerste resultaat 
(uit regel 60) een bevredigend 
resultaat geeft. 

Honderd maal vermeerderen met 10 tot 
de achtste is een toename met 10 tot 
de tiende. In de notatie met E15 is 
dat het vijfde cijfer achter de 
komma en dat is precies wat er staat. 

Het resultaat van regel 70 
ontnuchterd echter zeer : 6.71089E9 
en dat is maar twee derde van tien 
tot de tiende. De afronding zorgde er 
nog voor dat het in гереі 60 nog 
schijnbaar goed was. 


Met kleinere getallen om er bij op 
te tellen zal het nog veel eerder 
Schrikbarend fout gaan. Als we nog 
even aan ons uitgangprobleem denken 
waar we steeds 1 (een) optelden zult 
U hopelijk inzien dat dit relatief 
snel fout zal gaan en na verloop van 
tijd volledig zal stokken. 

Bij een zekere waarde zal door de 
notatie waarin die waarde staat en 
waarin onze l ook wordt omgezet om er 
bij te kunnen worden opgeteld de 
waarde niet meer veranderen. 

Best leuk om eens trachten te vinden 
bij welke kleinste waarde er een (1) 





instantie lijkt omdat de DAT nog wat 
cijfers achter de hand houd die 
normaal niet afgedrukt worden. 


We kunnen de vreemdste resultaten 
krijgen als we geen rekening houden 
met de beperkte opslagmogeli jkheden 
in een computer. 

Het volgende programma illustreert 
dat nog eens. 


10 REM 23-DELING / F.H. Druijff 
20 At=7.0:D!=23.0 

30 N=N+1:PRINT N; 

40 FOR I=1 TO N 


50 At=A!/D! 

60 NEXT 

70 FOR 1=1 ТОМ 
80 A!=A!*D! 

90 NEXT 

100 PRINT A! 


110 IF А!<0 GOTO 30 


De werking van het programma zal 
iedereen wel duidelijk zijn : 

De variabele А (=7) wordt N-maal 
door D (223) gedeeld en dan weer 
N-maal met D vermenigvuldigd. 

Zou de computer werken zoals je 
theoretisch zou mogen verwachten zal 
voor elke waarde van N er altijd 7 
uit blijven komen. De computer heeft 
echter te maken met de opslagmethode 
in het geheugen. 


Met of zonder mathchip bij N is 15, 
ja vijftien, is het resultaat al O. 





N zonder 9511 met 9511 
1 15,0 5.0 

2 15.0 15.0 

3 15.0 5,0 

4 15.0 4.9999 
5 15.0 4.9999 
6 15.0 4.9998 
7 15.0 4.9998 
8 15,0 14.9997 
9 15.0 4.9996 
10 15.0 4.9995 
11 15.0 4.9994 
12 15.0 4.9993 
13 15.0 4.9992 
14 15.0 14.9991 
19 0.0 0.0 


Zonder mathchip lijkt het hier 
langer goed te gaan maar bedenk dat 
een andere keuze voor А! en vooral D! 
het misschien andersom had doen zijn. 
Met mathchip lijkt ook logischer : 








- in eerste instantie een zodanig 
kleine afwijking dat het bij het 
printen niet zichtbaar wordt. 

- later een kleine afwijking die 
naarmate we М laten toenemen 
marginaal groter zal worden. 

Maar dan komt bij 15 de grote klap 
Het resultaat is nul. Hoe kunnen we 
dat verklaren ? Nogal eenvoudig als 
we de interne notatie beschouwen. 
Het is niet nodig voor deze uitleg 
ook gelijk tot in de kleinste details 
af te dalen. De zogenaamde E-notatie 
waarin de DAT zijn floating point 
getallen aan ons doorgeeft is in 
feite voldoende. 








E-notatie 


2.3456E7 betekent 2,3456 x 107 = 
2,3456 x 10 000 000 = 
23 456 000 

Dit laatste getal is niet noodzake- 
lijkerwijs exact. We kunnen bij de 
opgave van 2.3456E7 alleen zeker 
weten dat de waarde tussen 23 455 500 
en 23 456 500 inligt. 
In feite is het laatste getal voor de 
E een afgeronde waarde. 

De notatie van de DAI zou ons echter 
zes significante cijfers moeten geven. 

Is dit laatste cijfer echter een 0 
zoals in dit voorbeeld laat de ТАТ 
die om discutabele redenen weg. 

Omdat we de DAI kennen en dus weten 
dat er zes significante cijfers 
moeten zijn kunnen we de grenzen met 
deze wetenschap enger maken tot : 
2.3456E7 ligt tussen 23 455 950 en 
23 456 050 in. 

Het interval waarin 2.3456Е7 ligt is 
hiermee dus verkleint van duizend tot 
honderd. 

Maar we dwalen af van ons onderwerp. 

Delen we bijvoorbeeld 4.88888E6 door 
twee zal dat 2.44444E6 worden. 

Wederom door twee delen geeft nu 
1.22222E6 maar weer delen door twee 
geeft niet 0.61111Е6 maar 6.1111E5. 

We zien dat het eerste deel NOOIT 
met een O begint en ook NOOIT uit 
meer dan twee cijfers zal bestaan. 

Samenvattend : het deel van het 
eerste getal voor de komma zal alti jd 
ongelijk aan O zijn. Stel dat achter 
de E maar een getal van een cijfer 
mag Staan, Dit getal/cijfer mag dan 
wel van een '-' voorzien zijn indien 
nodig. Delen we 1.22222Е-9 door twee 
wordt dat 6.1111E-10 maar dat kan 
niet volgens onze afspraak dat achter 








20 GOTO 20 bijgeteld kan worden zonder dat die 
waarde verandert. Het probleem is 
iets lastiger dan het in eerste 
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de E het getal maar een cijfer mag 
hebben. Vele ontwerpers van rekenhard 
en software kiezen nu toch voor de 
oplossing 0.61111E-9. wordt dit dan 
door honderd gedeeld is 0.00611Е-9 
het resultaat. 

U ziet dat we 'officieel' nog steeds 
zes significante cijfers hebben maar 
de eerste drie zijn nullen en de 
laatste twee enen zijn al uit de 
notatie geschoven, 

Gaan we nu weer vermenigvuldigen met 
de getallen waar we zoeven door deel- 
den doen die weggeschoven enen niet 
meer mee. Dit verklaart de geringe 
afwijking die U in de mathchiplijst 
aantrof, Logischerwijze is nu ook in 
te zien waarom de afwijking met 
stijgende N toeneemt, Ziet U het ? 

Ja ? Jammer, want dit is niet de reden 
van deze afwijking. Het speelt wel 
een rol maar dat komt pas veel later. 


De deling zal vaak veel meer cijfers 
achter de komma leveren als kunnen 
worden opgeslagen. Het bewaarde getal 
zal dus vaak iets afwijken van de 
echte waarde. Door meer bytes per 
getal te reserveren verleggen we het 
probleem maar lossen het niet op. 





3 x (1/3) 


1 / 3 = 0,3333333333333333333333.... 
we noteren dat als 0,3333333 als we 
zes cijfers achter de komma werken. 
Maar dan is 3 x (1 / 3) = 0,999999 en 
niet aan 1. 
De DAT is het met het voorafgaande 
helemaal eens, maar zal zijn 0,999999 
toch ais 1.0 op het scherm zetten. 
Vragen we hem echter of het 
resultaat van 3.0*(1.0/3.0) gelijk is 
aan 1.0 zal hij ontkennen. 
Het volgende programma laat dit zien: 


10 REM P*(1/P)(«1 / F.H. Druijff 
20 Tl=l!+1.0:PRINT 

30 PRINT I!,I!*(1.0/1!), 

A0 — AsII*(1.0/1!) 
50 PRINT Al; 

60 IF А1-1.0 GOTO 20 
70 PRINT " Ongelijk"; 
80 GOTO 20 











Tik het in en zie dat reeds bij drie 
er 'Ongelijk' bij staat. Maar wacht 
eens, er zijn er verderop ook nog 
waarden waar het ongelijk wegblijft. 


Het blijkt uit dit programma dat het 
alleen gelijk is bij 1,2,4,8,16,32, 
64,128,256,512,1024,... dus de 
machten van twee. En zoals de meesten 
wel zuilen weten werkt de DAT binair 
en zal bij deling door twee alleen de 
exponent een verminderen en de 
mantisse ongemoeid laten. 

Bij de vermenigvuldiging gebeurt dat 
ook en bij een onveranderde mantisse 
is de afwijking van de oorspronkelij- 
ke waarde nul. 

Zouden we in het deelprogramma dus 
niet door 23 maar door 32 (= 2 ^5 ) 
gedeeld hebben zouden er ook geen 
kleine afwijkingen zijn geweest. 


Bij de deling onderscheiden we dus 
twee fases. 

- Eerst wordt de deling binnen de 

nauwkeurigheid van de DAI opgelost en 
door de notatie vallen de cijfers na 
(zeg maar) het zesde cijfer weg. 
De mantisse zal door deze afronding 
nooit exact op grootte blijven maar 
wel binnen redelijke grenzen van de 
echte waarde. 

- Dan begint daarna de fase waarin 
de mantisse er zelf langzaam wordt 
uitgeschoven. Bij delen door 23 gaat 
dit met zo'n vier a vijf bits per 
keer en al heel snel is er niets meer 
van over. In deze fase kunnen we 
verwachten dat de einduitkomst ineens 
grotere verschillen gaat vertonen. 

In de praktijk blijkt dit echter mee 
te vallen daar natuurlijk altijd de 
belangrijkste cijfers er nog staan. 
Ook vermoed ik dat ais er teveel 
bits zijn weggeschoven de waarde 
automatisch op nul wordt gezet. 

In vele praktijk gevallen zal 
blijken dat er dan O uit komt en dat 
dat bijna iedereen zal opvallen. 

Komt er een waarde uit die in feite 
volledig onbetrouwbaar is loopt men 
het risico dat niet op tijd in de 
gaten te hebben. Komt er echter nul 
uit zullen vele programma's kapot 
lopen of zulke onzinnige antwoorden 
geven dat het opvalt. 


Frank H. Druijff 
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DAI- 64k RAM CARD March 1986 


By George Cathcart 
12 Evora Park, 
Howth 
Co. Dublin 
IRELAND 
Tel. 01—324030 


This board connects to the DAI via a motherboard on the DCE bus or 
(in the future) via a motherboard on the X bus. It has a battery back 
up сап be used in place of EPROM either for DAI оғ another Micro 
thereby allowing changes to the program under development to be made 
very easily. It can also be used instead of a Disk system. The card 
uses part of one card address from the motherboard (a total of 16 
Megabytes RAM (256 X 64K RAM boards) could be connected to each саға 
address). The (DCE bus) motherboard can support 12 card addresses and 
is supported by the IN and OUT commands in DAI basic. For large data 
transfers however this is almost as slow as using a cassette 
recorder. Using a machine code routine transfer rates are about 60 
times faster. The X bus version should be even faster. 


The mapped position of the board within the card address сап be 
changed by way of eight swiches on the board and the card address can 
be selected using a wire link. 


The board uses eight SK by 8 bit 6264 CMOS memory chips to achieve 
64K. 24 lines of address, generated by the Motherboard are fully 
decoded using high speed CMOS chips. This keeps the power consumption 
to a minimum. In standby, not connected to the motherboard, the card 
uses only about 0.3 ma. This allows data retention for about two 
weeks using a fully charged onboard 110 ma hour 3.6V Ni Cad battery. 
The comsumption almost doubles when the card is left connected with 
the DAI turned off. The battery is charged automatically via the 
motherboard when the DAI is on and can also be charged by applying 
4.4 volts (5 volts via a diode) to pin 49 of the card connector while 
the DAI is either on or off. The voltage on Pin 49 can also be used 
to indicate the presence of the RAM card, for example when developing 
the operating system of a homemade dedicated micro. This voltage 
monitoring is not supported by the motherboard. Resistor RiO controls 
the charge rate of the battery. All address lines are tied low 
whereas data lines and the card enable signal are held high via 100K 
resistors to stop the CMOS chips oscillating and using excess current 
when the board is not connected. When оп battery backup í(*Vbb) the 
following are also held low via R11 (1K).:- 


Pin 26 of ics. 5-12 (62564). This chip enable is active high. 
Pin ot ic.4 (74HC138). This chip enable is active high. 

The switched inputs to ics.i & 2.(74HC86) used for address line 
inverting. 


РОМЕН comes from the motherboard where it is supplied 
DAI or an external power supply. 


either by the 
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READ/WRITE signals are decoded on the motherboard 


ADDRESS DECODING 


The address lines are generated by ports А,В & С of the motherboard 
8255 FFI. Qf the 24 address lines 15 (АО — 512) go directly to each 


RAM chip, 5 (MZ - A15) go to іс.4, a three line to eight line 
decoder (74HC138). This gives eight decoded chip select lines spaced 
in ЭК blocks. This leaves eight (616 — А25) and these can be inverted 


using 8 ХОН gates -ics.1 & 2  (74HC84). The second inputs of these 
gates are contolled by 8 onboard switches. The outputs connect to an 
8 input 'NAND' gate -ic.3  (74HC30)- which generates one of the chip 
select signals for the three line to eight line decoder mentioned 
above when all eight inputs are high. The second chip select із 
provided by the card enable signal from the motherboard and the third 
(high) select by the power supply from the motherboard (+Vnb., No 
battery backup). 


CONNECTIONS 


Connection is via a SO pin IDC connector. Pins 1 — 40 are compatable 
with those from the DCE bus motherboard. 


PIN DESCRIPTIONS 





1 +5 Volts (in) 2 0 Volts 

5 ADDRESS 14 4 ADDRESS 15 

5 ADDRESS 12 & ADDRESS 13 

7 ADDRESS 10 8 ADDRESS 11 

9 ADDRESS 8 10 ADDRESS 7 

11 ADDRESS 19 12 DATA 7 

13 ADDRESS 18 14 DATA 6 

15 ADDRESS 17 ió DATA 3 

17 ADDRESS 16 18 DATA 4 

19 ADDRESS 20 20 DATA 3 
21 ADDRESS 21 22 DATA 2 
25 ADDRESS 22 24 DATA 1 
25 ADDRESS 23 26 DATA O 
27 RD {active low) 28 WR (active low) 
29 ADDRESS Ó 30 ADDRESS 1 
51 ADDRESS 2 52 ADDRESS 5 
55 ADDRESS 4 34 ADDRESS 5 
35 ADDRESS 6 36 ADDRESS 7 
37 CARD 7 ENABLE 38 CARD 6 ENABLE 
59 CARD 5 ENABLE 40 CARD 4 ENARLE 
41 МОТ USED 42 NOT USED 
43 NOT USED 44 NOT USED 

45 NOT USED 46 NOT USED 
47 NOT USED (+12 Volts) 48 NOT USED 
49 +V battery backup 50 NUT USED (-5 Volts) 


NOTE that pins 41 to 50 are not supported by the DCE bus motherboard. 
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CONSTRUCTION 


А double sided PCB measuring 205 by 114mm is used. Track layout and 
component layout diagrams are supplied. There are three index marks 
for registration purposes on the drawings.  Üne in each corner at the 
connector end of the board and one off centre at the other end of the 
board. The drawings are presented as seen through the board. ie. the 
printed surface next to the board. 


Construction is straight-forward if the following points are noted. :- 


Two connections are soldered to the component side of the board. 
These are Pin 1 (Ov) of R.1 and the positive (*Vbb) side of R.6. Note 
that if the card system is not used, the link labeled 'none' is used 
and R.ó is omitted. 


All connections through the board are by way of pins. These should be 
inserted first as they are in many cases under other components. This 
saves having to solder the іс. sockets on both sides of the board. 
Pads on the component side of the poard indicate the positions of the 
links. Where the pins are very close together they should be inserted 
from alternate sides of the board. 


Following this solder in the 50 pin connector and check the board for 
short circuits before inserting the ic. sockets The battery (if used) 
should be mounted over an  insulator to prevent connection with the 
lines and pins situated underneath it. R.10 controls the charge rate 
of the battery. For a 3.6V battery a 470R resistor allows a charge of 
nearly ima for a fully charged battery. The voltage drop across it SV 
— O.6V — Battery voltage. If no onboard battery is used R.10 can be 
omitted. With the eight address decoding switches switched on, the 
board maps to Hex ОООООО (ic.5) to OOFFFF (ic.12). 


COMPONENTS 
R. 1-5 100K. 8 commoned resistors in an SIL package 
R.6-9 100€ 1/4watt. 
R.10 see text. 
R.11 1K 1/4 watt. 
C.1 10 microF.Tant. 
C.2- 0.1 micro F. Ceramic Disc. 
с.5-ё 0.01 micro F. Ceramic. 
D.1-2 1М4001. 
ic.1-2 74HC86 Quad ХОК Gate 
ic.3 7AHCZSO В input NAND gate. 
ic.4 7AHC138 3 to В line decoder. 


ic.5-12 6264 CMOS BK X B bit memory. 


PCB board double sided 203 x 114 mm. 

Track pins. 

Оле Z.6V NiCad 10 тан battery. 

One 50 way rt angled PCB plug (AWHSO or equivalent). 
One 8 way 16 pin DIL switch. 

Three 14 pin ic. sockets. 

Two 16 pin ic. sockets. 

Eight 28 pin ic. sockets. 
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1152 S =£" ўуз" =": H 
1135 BL ege IF IPJO THEN Tey PE E 
1134 ER=L O06 {1P4} /LO6 (2.0) :FLZ(ERSB8.0) Z1: RETURN 
1500 IF XXZ>EFF THEN XXZ=O:YYZ=YYZ+1 
1 REM WRITTEN BY George Cathcart 23/2/86 1259 EES 
ca O IF YYZ 4-0: ár ыты EE < : 
2 FLAGX-O:PRINT CHR$(12); "ADDRESS LINE TEST (DCE BUS MOTHERBOARD)" ite ы аны ыны ааа ыы ааа ee 
3 PRINT : INPUT "Do you wish to Log ERRORS (Answer Y or N)”; LBS 
& PRINT :PRINT : INPUT "Motherboard No.";DNO:PRINT :IF DNU«O.O OR DNO>EF THEN 
PRINT “IMPOSSIBLE “:GOTO 6 
7 INPUT "RAM Card No.";CNO:PRINT :IF CNO<4.0 OR СМО>ҒҒ THEN PRINT "IMPOSSIBL 
E use 4-15":G010 7 
8 INPUT "How much RAM is present (K)";KBYTEZ:PRINT :PRINT 2 MEMZ=KBYTEZ*#£400 
9 CARD= (16. O*DND) +CNO: РРІ= (16. O&DNO) +3. O: GOSUB 1100 
10 OUT PPI-3,£A5:0UT PPI-2,0:CIN=INP(PPI-3):1F CIN=£AS GOTO 13 i REM WRITTEN BY George Cathcart 22/2/86 
12 PRINT “ NO MOTHERBOARD AT THIS ADDRESS '":GOTO 6 2 FLAG1Z-0: XXZ=0: YYX=0: 777-0: ENVELOPE O 15,10;0,10;:РКІМТ CHR# (12); "NON-DES 
із DIM FLZ(24.00)0:GOGUB 1100 RUCTIVE RAM TEST (DCE BUS MOTHERBOARD)" 
18 PRINT " Checking first £FF addresses on CARD #“;НЕХ$ (CARD) 3 PRINT :INPUT "Do you wish to log errors Y/N "rz 
20 FOR RAM=0.0 TO EFF 4 IF L$-"Y" OR L$="N" THEN GOTO 6 
30 OUT CARD, XX%: XXZ=XX%+1:GO0OSUB 1500: OUT PPI-S,XX7Z 3 GOTO 3 
40 NEXT RAM 6 PRINT :PRINT : INPUT "Motherboard No. "; DNO: PRINT : IF DNO<0.0 OR DNO>EF THE 
45 GOSUB 1100:REM ADDRESS = £000000 PRINT "IMPOSSIBLE ":GOTO & 
49 REM 7 INPUT "RAM Card No."3CNO:PRINT :1F CNO<4.0 OR СМО>ҒҒ THEN PRINT "IMPOSSIB 
So FOR RAM=0.0 TO £FF E ":GOTO 7 
50 IIX-INP(CARD) 8 INPUT "How much RAM is present (K)";KBYTEX:PRINT 2: PRINT :MEMZ=KBYTEZ#£400 
65 IF ХХУ<>117 THEN GOSUB 1120 9 CARD= (16. O*DND) +CNO: РРІ= (16. O*DNO) +5. O 
70 XXX=XXX+L1 GDSUB 1500: OUT PPI-3,XX%:NEXT RAM 10 PRINT "Do NOT ABORT or you may corrupt a memory location. ": PRINT 
79 REM 14 OUT PPI,£80:0UT PPI-1,Z2Z24:0UT PPI-2,YYZ: OUT PPI—S,XXX:REM ADDRESS-£000000 
80 IF FLAGZ=0 THEN PRINT " LOWER ADDRESS LINES OK!" 15 FOR RAM=£0 TO MEMZ-1.0 
90 IF FLAG%>0.0 THEN PRINT FLAGZ;" (£"3 HEXS$ (FLAGY) з") "з" ERRORS FOUND":FLAG17 17 FLAGZ=0 
= 20 IF XXX=Q THEN GOSUB 119:REM Print ‘CHECKING....etc. 
95 IF FLAGX>£FD THEN PRINT " IS THERE ANY MEMORY AT THIS ADDRESS ?" 40 B-INP(CARD):Z-£FF-B:OUT CARD,Z:Z1-INP(CARDO:22-£FF-Z1:QUT CARD,B 
100 MEMXZX-MEMZ/£FF:PRINT :PRINT " Checking one of each 256 bytes on CARD £"; HEX 45 GOSUB 245:REM Check if OK. 
$ (CARD) 50 FLAG1%Z=FLAG17%4+FLAG7: FLAG2%4=FLAG7Z : FLAGX=0 
109 REM 55 XXZ=XXZ+1:IF XXZ>EFF THEN YY%Z%=YY%4+1: XX%Z=0:G0SUB 150:REM Print OK or BAD 
110 GOSUB 1100:FLA6Z=0 56 IF YYZ>EFF THEN Z2Z%=727%+12: YY%=0 
120 FOR RAM=0.0 TO MEMZ-1.0 57 OUT PPI-S,XXZ:IF XXZ-O THEN OUT PPI-2,YYZ:IF ҮҮХ=О THEN OUT РРІ-1,27% 
130 OUT CARD,YYZ:YYZ=YYZ+1:GOSUB 1520:0UT PPI-2,YY7 60 NEXT 
200 NEXT RAM 80 IF FLAG1Z-0.0 THEN PRINT : PRINT "ALL OK!":GOTO 100 
299 REM 90 PRINT :PRINT FLAG1Z;" ERRORS DETECTED." 
300  GOSUB 1100:REM ADDRESS £000000 100 END 
320 FOR RAM=0.0 TO МЕМУ-1.0 119 PRINT "CHECKING £"; НЕХФ (CARD); "2 "53 HEX#(ZZX)5" "3 
330 = IIZX-INP(CARD):IF YYZ<>IIZ THEN GOSUB 1130 120 PRINT HEX#(YYZ); "OO TO ";НЕХ%Ф(ҮҮ "FF  "S:RETURN 
340  YYZX-YYX-1:G0SUB 1520: OUT PPI-2,YY%:NEXT RAM 150 IF FLAG24-0.0 THEN PRINT "OK.":RETURN 
359 REM 160 IF FLAG2Z«20.0 THEN PRINT "BAD.":SO0UND O O 15 O FRE@(1000.0):WAIT TIME 30 
360 IF FLAGZ=0.0 THEN PRINT " UPPER ADDRESS LINES OK!" SOUND OFF :FLAG2Z-0: RETURN 
370 IF FLAGZ>0.0 THEM PRINT FLAGZ*£100;" (£"3HEX${FLAGZ#£100);") PROBABLE ERRO 245 IF 22<>В THEN FLAGZ=1 
RS DETECTED" 246 IF L#="N" THEN RETURN 
380 IF FLAGZ=0.0 AND FLAGi17-0.0 THEN PRINT " ALL OK'":GOTO 1000 247 IF Z2<>B THEN PRINT :PRINT :PRINT "ADDRESS = xxyy "3HEX#(XX7Z) : PRINT 
58% PRINT 251 IF 72<>В THEN PRINT "RAM ORIGINAL = ";HEX$(B);" COMPLEMENT OUTPUT = "; HEX 
390 FOR LINEZ-O TO 23 (Z) 
392 IF FLZ(LINEZ)>0.0 THEN PRINT "CHECK ADDRESS LINE "3LINEZ 255 IF 72<>В THEN PRINT "RAM RETURN = ";HEX#(Z1);" RETURN COMPLEMENT = ";HEX$ 
395 NEXT 22) 
1000 PRINT :END 254 IF Z2<5B THEN SOUND O O 15 O FREN(1000.0):WAIT TIME 30 
1100 XXXz-Oü:YYX-0:ZZZ-0 255 RETURN 
1110 QUT PPI,£80: OUT PPI-1,224:0UT PPI-2,YYZ:DOUT PPI-3,XXZ: RETURN 
1120 FLAGZ-FLAGX*1:IF LG$-"n" OR LG$-"N" THEN GOTO 1125 
1121 PRINT " ERROR AT £"3HEXS(ZZ%)3" "sHEX#$(YYZ);"” ";НЕХ$ (ХХХ); 
1122 PRINT " OUTPUT -£"siHEXS$OCOCD;:" FOUND —-£":HEX$(IIX) 
1123  1PZ-IIX-XXX:1F IPXCO THEN ІРУ--ІРУ 
1124  ER=LOG (1P%) /LOG (2. 0) : FLX CER) 21: RETURN 
1150 FLAGZ-FLAGX*1:1F LG$-"N" OR LG$-"n" THEN GOTO 1133 
1151 PRINT " ERROR AT £":iHEX$(ZZ7)0;" ";HEXS(YYZ);" "SHEXS$SOCGXZO ; 
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DAI - DCE Bus Motherboard. 
March 1986. 


by George Cathcart 
12 Evora Fark, 
Howth 
Co.Dublin 
Ireland. 
Tel. 01-3524050 


This board connects to the DCE bus via. a 34 way connector. The DAI 一 
DCE bus pin 1 is on the top row away from the ON/OFF switch. The pins 
are compatable with the standard DCE Bus connections and so input and 
output through the board are supported by DAI Basic. The board acts 
as a buffer and decoder for memory cards, an EPROM programmer, LED 
boards, switches etc. The address of the Motherboard is decided by 
four switches on the board with possible addresses of O to 15. It is 
possible therefore to connect more than one motherboard at at a time 
if desired. Each motherboard decodes 16 card addresses, 12 of which 
are available to the user. addresses G to 3 are used by the onboard 
8255 PPI which is wired for mode О operation. This can be used - for 
example to latch 24 address lines thereby supporting up to 16 Mega 
byte of RAM or EPROM on a single card address. 


HOW IT WORKS. 

The motherboard address, is compared to the address on the DCE bus by 
а 741585 comparitor. This 741585 is enabled by the BE signal (from 
the DCE bus) using the cascade input. The inverted 741585 output is 
used as an Enable signal and gates the RD (low) and WR(low) signals 一 
to avoid the low glitch, (from the DAI 8255 PPI during DATA update) 
from generating both signals simultaneously. It also enables a 4 bit 
to 16 line decoder (7415154) which decodes the card addresses. 


As already mentioned four of the 16 available card addresses are used 
on the board by an 8255 PPI chip. These four enable signals (for card 
addresses O,1,2 and 3) are combined by half a dual four input NAND 
gate £741 520) and then inverted. Address lines О and 1 from the DCE 
Bus are used directly for the 8255. Data from the DCE bus is buffered 
by a bidirectional buffer (7415245). 

and 0.47 


The onboard B255 is reset at power up via a 56Е resistor 
e 


micro Farad capacitor connected to pin 35 of the 8255. 
The following describes the connections to and from the board.:- 


INPUT 
34 PIN INPUT from DCE Bus 


NB. No Connection REFERS TD THIS BOARD AND NOT THE DCE BUS. 
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pon 


FJ +b © CO 


OUTPUTS 


PIN 

No connection 33 
Card Address bit 2 51 
= " PEE! 29 
RD {low to read) 27 
BE (high turns on bus)?5 
Device Address bit О 25 


" Ы; м 2 21 
No Connection 19 
ч = 17 
Data bit ü 15 
Data bit 1 із 
Data bit 2 11 
Data bit 3 9 
No Connection 7 
" " 5 
О Volts 3 
(+12 V) No connection 1 


No connection 

Card Address bit i 
No connection 

WR (alow to write) 
Саға Adddress bit 3 
Device Address bit i 
No Connection 


Data bit 7 
5 Data bit 6 
Data bit 5 
Data bit 4 


No connection 

n D 

Ы " 6-5 Volts) 
+5 Volts 


There are two output plugs on the boarde- 


шымш 


ONBOARD 


Port 
Port 
Port 


The 8255 


20 pin 


buffered data 

power 

RD & WR 

card enable (8,9,10,11, 
12,15,14,15) 


40 pin 


buffered data 

power 

RD & WR 

card enable(4,5,5,7) 


+ 3 NO 


24 (3x8 bit) 8255 ports 


8255 FPI 

A bidirectional - latched (Card Address о» 
B bidirectional - latched (Card Address 1) 
C bidirectional — latched (Card Address 2) 


Control Byte is at Card 


20 pin output — pin descriptions 
РІМ РІМ 
20 O Volts 19 
18 Data bit 6 17 
16 Data bit 4 15 
14 Data bit 2 15 
12 Data bit O 11 
io Card 14 Enable 7 
8 Card 12 Enable 7 

6 Card 8 Enable 3 

4 Card 10 Enable 3 

2 RD (low to read) i 


address X 


+5 Volts 
Data bit 
Data bit 
Data hit 
Data bit 
Card 15 Enable 
Card 13 Enable 
Card 11 Enable 
Card 9? Enable 

HR (low to write) 


= GO 





ОАіпатіс 33 


49 


DAICLIC 6 




















49 pin output — pin descriptions 
PIN FIN 
i +5 Volts 2 © Volts 
= Fort B bit 6 4 255 Fort B bit 7 
я 255 Port B bit 4 а 8255 Port B bit 5 
7 8255 Fort B bit 2 8 2 Port B bit 3 
9 68255 Fort B bit Ó 10 8255 Fort B bit 1 
11 8259 Fort C bit 3 12 Data bit 7 
15 8255 Fort C bit 2 14 Data bit 6 
8255 Fort C bit 1 16 Data bit 5 
255 Fort С bit О 18 Data bit 4 
255 Fort C bit 4 29 Data bit X 
8255 Port C bit 5 22 Data bit 2 
8255 Fort C bit à Data bit 1 
9255 Port С bit 7 Data bit O 
RD (iow to read) WR (Том to write) 
255 Fort a bit O 8255 Port ñ bit 1 
9255 Fort ñ bit 2 8255 Port A bit 3 
8255 Port ñ bit A 8255 Port ñ bit 5 
35 8255 Port A bit & 5 8255 Port А bit 7 
37 Card 7 Enable 38 Card 6 Enable 
59 Card 5 Enable 40 Card 4 Enable 


CONSTRUCTION. 


The motherboard can be made оп either a double sided or а single 
sided (with wire links) PCR measuring 100 X 160mm. If а single sided 
board is used, two links which pass under the 20 pin header are best 
soldered on the underside of the board. If a double sided board is 
used, registration is by three index marks on each drawing. To date I 
have made two motherboards, both on single sided boards and the only 
problems encountered were due to too long a connecting lead. This 
sometimes caused the DAI to reset while reading from memory connected 
to the motherboard. 


On my boadrs I have soldered a 0.1 micro Farad capacitor across the 
power supply pins of the 8255 PPI (pins 26 and 7), this supresses 
spikes on the ports of the 8255. 

It is passible to either use the DAI 5 volt power supply or an 
external one. If using power from the DAI insert link "А" and solder 
the 10 micro Farad Tantalum capacitor in position "A", if using ап 
external supply leave out the link and use position "B" for the 
capacitor. External power is input on two pins near this capacitor. 


Note that the PCH artwork is presented as seen through the board ie. 
the writing is the correct way around on the finished board. 


un 











Resistors. 


4 
i 


ZK 1/4 watt. 
веб "o oo 


Capacitors 


1 
8 
1 


0.47 micro Farad. 
0.1 а У disk. 


10 E tantalum. 


Integrated Circuits. 

741585 Comparitor 
741504 Hex inverter 
741.552 Quad 2 input OR gate 
7415245 Octal bidirectional buffer 
74515154 4 to 16 line decoder 


1 


741520 Dual 4 input NAND gate 


9255 PPI 


Miscellaneous. 


La RÀ ta 7 ta ta ka bo 






40 pin DIL socket. 
24 pin DIL socket. 
20 pin DIL socket. 
16 pin DIL socket. 
14 pin DIL sockets. 
4 spst DIL switches. 


24 way straight PCB plug 
20 way straight PCB plug. 
40 way PCB plug.(straight or right angle. 


100 X 150mm РСВ. 


{like DCE BUS plug). 


PCB pins if double sided board is used. 


64 K RAM CARD 





DCE-BUS MOTHERBOARD 
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Om bij Power-on te controleren of er iets is aangeslo- 
ten op de "DCE" bus beschikt de DAI over een routine 
die controleerd of op de "DCE" bus data staat. 

Voor ons geval nemen we aan dat dit ЯҒОҒ2" moet zijn. 
Is dit niet het geval dan gaat hij normaal verder en 
vergeet de "DCE" bus. 

Ziet hij echter wel #F2F2 dan springt hij naar deze 
memory locatie. 

#F2F2 is n.l. niet alleen een Jump instructie maar ook 
een locatie in een vrij beschikbaar gedeelte van het 
geheugen waarin we een programma kunnen plaatsen d.m.v. 
een Eprom of ander geheugen element. 

Deze vrije geheugen ruimte loopt van #F000 tot #F7FF en 
is dus twee Kbyte groot. 

We kunnen deze geheugen ruimte "Hardware matig" inscha- 
kelen door op de "X" bus connector binnen in de DAI een 
steekkaartje te plaatsen waarop zich een adres decoder en 
een Eprom bevinden. 

Met deze "X" bus connector zijn nog meerdere mogelijk- 
heden vaorhanden die we hier niet zullen bespreken. 
Mocht U nu b.v. de High Speed Loader willen bouwen dan 
kunt U de software hiervoor in dit "X" bus kaartje on- 
derbrengen. 

Om het programma automatisch te starten moet U dus bij- 
gaande schakeling op de "DCE" bus aansluiten. 


Beschrijving schema 


De schakeling bestaat uit een aantal TTL Low Power IC's. 
Het wordt geactiveerd door het signaal PBO. 

Als deze hang gaat ("H")worden de inverters van de twee 
gebruikte 74.5568 actief. 

Deze zijn zo geschakeld dat op de "A" poort van de 
"DCE" bus #F2 komt te staan. 

Dit signaal blijft staan totdat PBO weer laag gaat. 
Voor selectieve adressering b.v. voor externe appara- 
tuur kunt U ook een 7418158 gebruiken zoals beschreven 
in het artikel over de High Speed Loader. 

Het bit PCO wordt gelijktijdig gezet met PBO en een. time 
counter wordt gestart.Gedurende de tijd dat deze time 
counter loopt wordt data van poort A ingelezen en 

bit PAS hiervan gecontroleerd of hij "H" is. 

Is dit niet het geval dan wordt uit de DCE routine ge- 
sprongen en teruggekeerd naar de normale Power-On 
routine. 

We nemen aan dat dit laatste niet het geval is. 

РС2 wordt "Н" (Request voor data) en de inputs van 

poort C worden ingelezen. Hier wordt gekeken of bit PC7 
"H" is. Is dit het geval dan is de data die nu op de 

А poort staat correct . Deze data moet nu de instructie 
bevatten met wat we gaan doen. 

In ons geval moeten we naar #F2F2 springen. Deze proce- 
dure blijft doorgaan totdat PCS "H" wordt. Dit gebeurt 
korte tijd nadat PCO "L" is geworden. 


Dit komt door de vertraging die ontstaat door de tran- 
sistor ВС107 in combinatie met de 10K weerstand en 68K 
condensator. 

PCS moet zolang "H" blijven totdat we tenminste 4 keer 
SFZ gelezen hebben n.l. #F2F2 voor de jump instructie en 
*F2F2 voor het adres. 

Dit stukje "Hardware heeft U maar een keer nodig. 
Beschikt U reeds over een DCR c.q. Floppy interface of 
sen andere aansluiting op Uw DCE bus dan heeft U dit 
niet nodig. 

Voor de juiste afhandeling van de initialisering van 
DCE peripherie staat een beschrijving van J.Boerrigter 
in DAInamic nr 14. blz.28 van jan-febr. 1983. 


Geleen,febr.1986 
H.Rison 
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BC107 


Hardware Interface on DCEBus PA 
to jump to Memory location F2F2 
by Power On. 


Thisintertacecan be used with 

Pheripherals conn-to the DCE Bus 
and Software оп the"X bus. 10 
(F000- F7FE) 


Used for 
selectiveaddressing 








І 

l 

See HSL | 
drawing for | 
details 1 
| 

l 

l 

















WLS 
368 











1514 
PC7 











ЮАіпатіс 33 54 DAICLIC 6 


DAinamic 33 55 DAICLIC 6 




































































































































































Micro-ordinateur et douane : 


rien à déclarer ? 


Ce n'est pas tous les jours qu'un 
parlementaire, fut-il national ou 
européen, s'intéresse, sans la 
moindre arriére-pensée électo- 
rale, à la vie quotidienne du bon 
peuple qui l'a élu et aux tracasse- 
ries administratives dont il est la 
victime pius souvent qu'à son 
tour. Aussi valait-if la peine de 
Signaler la récente intervention 
de Madame Raymonde Dury, 
Député au Parlement Européen, à 
propos des difficultés adminis- 


OCT.85 


usages en cette matiére, et 
ensuite, parce que la réponse de 
la Commission intéresse égale- 
ment les possesseurs de matériel 
vidéo. 


Voici cette réponse : 

En régle générale, les effets per- 
sonnels qui accompagnent un 
voyageur et qui sont destinés à 
Son usage privé bénéficient, à 
l'entrée d'un Etat membre, sans 
que le voyageur doive déposer 


Cher Monsieur Hermans 


Beaucoup de membres de nos 
Clubs ont eu des difficultés aux 
frontieres entre nos pays Euro- 
péens, lorsqu'ils emportaient leur 
Ordinateur Personnel avec eux. 
Madame Dury Parlementaire 
Européen veut nous défendre. 
Notre PC doit être considéré 
comme un BAGAGE NORMAL. 
Je suis en contact avec le bureau 
de Mm Dury : Plus je recevrai de 
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REM ....3D O20 adapted by Lloyd Bailey 
CLEAR 5600: DIM CHARS (195), M4 3.3.3). C5,25, 3) , A (BY DALE) SPZ. (4) , BRAL 


SELD 


BOZ=9:C34=5: C44 =: XC%=6 

PRINT CHR$(12):MODE 6A:MODE SA:COLORT 19 9 9 9:COLORG 10 @ 5 15 

FOR ХА=52 TO 125 

READ CHARS (X4? : NEXT 

A$="NOUGHTS AND CROSSES": DZ=0:CS%=19:L%=6:G0SUB 59000 

AS-"ENTRE Plain,":DX-O:CSX-1:0 4-2: GOSUB 50060: 0$-"Row, Column.":DZ-0: 











CSZ-1:LX-3:608UB 50000 





x 
37 


PZZ-RND (2) +49: RZZ-RND (3) +49: COZ-RND {3) +49 

AS=CHRS (F24) +" „ "ACHRE (R24) +" , "+CHR% (220 2 D%=9: C824: LZ=4: GOSUE 36000 
GOSUB 26060:DAZ-15:PZ-P2Z-49:R4-R24-49:C74-C27—49:80S8UB 2000 

INPUT "PRESS [RETURN] TO CONTINUE"iV&:PRINT CHR$(12):03X-16: GOSUE 200 


2: XCX-0: 22-5: DAZ=1 


да 


A$-"YOUR ARE NOUBHTS":DZ-6:CS4-53:017-2:GDSUB 50000:0%-"17 АМ CROSSES": 


DZs6:C8X-S8:LZ-3:605UB 50000 































tratives en matière de douane une déclaration écrite, d'une lettres de soutien de ce projet, ue FOR PX=9 TO Z:FDR RZ=@ TO 3:FOR CZ=@ TO 3 
auxquelles sont „assez Trequam ^ Mancho ges taxes. La Com: Plus le dossier de demande que 66 IF PX-RX AND PX-CX THEN 110 
ment semble-t-il - astreints les mission estime que ce principe, nous allons préparer avec des 76 IF РУ- E 2 E 
possesseurs d'un «personal com- déjà acquis en ce qui concerne Services sera Fort devant la Com. 9 PX=EX AND P RZ THEN 116 
uter» - entendez un de ces petits des articles tels que les appareils mission Européenne. Do IF P%=3-C% AND RZ=UZ THEN 116 
ordinateurs allant du «micro» au де photographie, les caméras, Si cet appel peut passer dans la 96 IF PX-RX AND FX=3-CX THEN 119 
«home computer» et que l'on  /es postes de radio, etc... parfois revue: nos: membres “et amis des 198 GOTO 176 
range trés facilement dans une — de valeur relativement élevée Pays Bas et d'Allemagne, d'An- bs isa rnc ME 
valise - lorsque leur vient l'idée, mais destinés à l'usage person- gleterre et d'Italie Geen égale- 116  NZ(PZ,RZ,CZ)=16 
saugrenue aux yeux дез gabe- nel, us s appliquer égale: ment me contacter 120 МА (РА, КА, С) =1: МЕХТ СХ: МЕХТ RZ:NEXT PX 
ous, de vouloir l'emporter au- теп! aux micro-ordinateurs. Si {ы A TÇ А т т-д. 8 er KAn "муу, 3; 
delà des frontières. cela. n'est pas encore: le cas, Ceci. adresse a TOUS eeux aui 136 FOR NZ=@ ТО B:READ AX(NZ),BZ(ONZ)INEXT NZ 
D'où la question de Madame С6йе situation pourrait résulter DU assimilé et qui veulent le tran- 140 PRINT "ENTER YOUR MOVE "; 
Dury : du caractère relativement nou- sporter dans l'Europe ENTIERE 159 INPUT PZ. R. C%: PRINT :PZ=PZ-1:RZ=RZ-1:UCZ=UZ-1 
La Commission peut-elle confir. "%3 et inconnu de ces appareils. sans Difficultés. ің; 166 IF PZ23 OR RZ23 OR CX»3 OR РУ<0 OR RZ<@ OR C449 THEN 140 
mer que le «personal computer» En d'autres mots, si vous vous Que ceux qui ONT EU des Difficul- 170 IF MZ(PZ,RZ,CZ)>1 THEN PRINT PZ-1i", КИІН", СИЕ" IS OCCUPIED": GO 
destiné à accompagner l'utilisa- = partez en vacances avec votre SE TO 148 ^ 
teur lors des voyages à l'étranger etit matériel vidéo (magnétos- que. В v Tp па EN сір; 
soumis à des réglementations Done, caméra, V geo: Aa pour- nages et lettres, j'irai chez Mme 180 МА(РУ, КА, СУ) =5: 50508 1000:BOSUB 2000 
douanières comme par exemple quoi pas, matériel de montage) Rude oe batirons un dossier 185 GOSUB 3900: IF MZ(FX,.RZ,CZ)>1 THEN 185 
établir une déclaration d'exporta- ^ point n'est donc besoin de vous | nt. А 190 PRINT "MY IS "рир", "S RY44 3" "s = M Y =M 
tion provisoire au moment où l'on ` munir du sacro-saint carnet ATA J'ai déjà contacté la FRANCE, 200 MX(PZ,RZ E. MEE n hee 
passe la frontière et au retour qui a déjà valu quelques cheveux mais toutes les aides seront bien- E (Py, RZ, 1) =2:5050В 1000:60SUB 2000 
établir une déclaration d'importà- gris à plus d'un confrère venues. Un texte d'appel sera 216 IF MCX=64 THEN PRINT "THE GAME IS А DRAW":END 
tion, cela signitie qu'il est prati- — cinéaste. Le seul risque auquel esate So e 229 GOTO іде 
A il t " Я 1 iqu ij T а 4 $t 
for SO BO SODA computers d'un ebd ا‎ ae ae dans différentes langues. 999 REM FIND ON WHICH LINE THE MOVE CELL LIES 
pays à un autre alors qu'il s'agit — nier trop zélé que ce que lui con- Que ceux qui se sentent bons ré- 1000 FOR 0%-1 TO 3:GOSUB 4000: МЕХТ QX 
précisément de Ateet de leur sidëre comme des engins diaboli- GC veuillent bien me con- 1826 IF PX<>RZ AND РУСУ AND RZCOGCZ THEN 1646 
utilisateur. La Commission. ques et pernicieux - et donc pro- : ло P да 1 л 
compte-t-elle prendre des initiati- ducieurs de taxes et de paperas- MERCI pour TOUS. 104 Se SE IN ii GOSUB 22 
ves pour faciliter ce passage йе serie - ne sont rien d'autres que ERIC NEVE Ы “ГА THEN QZ-5:608UB 4009 
frontiére ? des effets personnels que vous 25 WO 1958 IF RX-CZ THEN GX-6:8505UB 4000 
Cette question nous a paru inté- Mer fiabttude de trimballar avec BELGIUM 1960 IF PZ RA AND Pas 23C4 AND R4<>I-U4 THEN 1150 
ressante à deux titres au moins. дё 1979 IF PX-S-RX THEN 0%=7:G0SUB 4090 
D'abord parce que la réponse Un conseil cependant, ayez tou- 1980 IF PY=3-C% THEN QZ-8:805UB 4000 
donnée раг Lord Cockfield, le 3 jours avec УЧЫ тез atures qui 1999 IF RX=3-CX THEN O%=9:G0SUB 4998 
octobre dernier, au nom de la vous ont été délivrées au moment 2 =n “= =10: 
Commission est révélatrice d'un Че l'achat de vos appareils. 1190 IF PZ=R% AND PASS Cz THEN HI 19: BOSUB 4000 
lent.- trop lent sans doute - chan- Croyez-moi, c'est souvent utile. 1119 IF PX=CX AND PX-Z-RX THEN QZ-11:G08UB 4606 
gement des mentalités et des 1120 IF PX-i-DCZ AND RZ-CX THEM QX-12:805UB 4000 
1159 IF PX-RX AND RX-CX THEN @4%=13:G0SUB 4900 
1149 RETURN 
ic 33 i 
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REM SET UP DATA TO DRAW BOARD 

IF BDZ=1 THEN 2899:FDR BX-0 TO 3 
YZ-200—BZs50: Y1Zz-1508—-BZs5 

REM DRAW VERTICAL LINES 

FOR XX-11e TO 196 STEP 20 

XiX-XX-480 

DRAW ХХ,УХ X1Z,Y1Z 15:МЕХТ XZ 

REM DRAW HORIZONTAL LINES 

FOR XZ=11@ TO 156 STEP 10 

X1Z=xX7+99 

DRAW XZ,YX X1Z,YZ 15 

YZ=YZ-10@:NEXT XX:NEXT BZ 

BÜX-1:RETURM 

UP DATA FOR NOUGHTS AND CROSS 
=128:X4%=134:P24=PF7 
-F2Z*50:Y2Z=Y1Z-6:R2Z=R2 
2126 

2136 

REM DRAW EITHER А NOUGHT OR А CROSS 
XC%=XC%+1:1F XCX MOD 2-1 THEN 2159 

REM DRAW A CROSS 

DRAW XiZ-LC2*,.YiX-R2X XAY-C24.Y2X-R2Z СЗУ: DRAW X24+C2%, WR X3SXT+C2X 





=122: XS 


E ee er? 
t10: C27.=C27.420+RK27 









| Y1Z-R27 СЗУ 











4999 REM FIND NEM PRIDRITY VALUES TO BE ADDED 

3800 IF DAZ=16 THEN C3Z-15:808UB &090:FILL 73,205 225,212 19:A$="# & I ШІМ 
*OR"HIDZSO:CSX-4:L X-0:G08UB 50000:БПТП 8010 

5828 ТЕ DAZ=81 THEN C4%=15:S0SUB 6000: PRINT CHR& (12) 5 "you must have won hy 
LUCK or you're a very good player": END 

50506 IF DAZ=6 AND МАРУ, КУ, СХ) =? THEN SX--19:GÜ0TD 5076 

5040 IF DAZ/MA(P%,R4%,C0%}=6 THEN 5%=0: GOTO 5976 

3056 FOR NZ=9 ТО S:IF DAZ-OZ1NZ) THEN SZ=BZ (MNZ) : GOTO 5070 

5080 NEXT NX 

5079  DAZ-1: RETURN 

5888 FOR JX-e TD 3: PAESPA (J4) :RZ=SRZ (JZ) :CZ=507 (JL) : BDSUB 20002 NEXT JZ:RET 

URN 

8019 COLORG 19 6 3 15:WAIT TIME 19 

5020 COLORG 19 9 5 15:WAIT TIME 19:G070 6916 

50000 IF (XMAX425)/4-24 THEN PZ=#BFEB-264*L 1 

59919 IF (XMAX425)/4-46 THEN РАчЯВҒЕВ-5бан X 

50920 IF (XMAX425)/4-90 THEN PX-HÜBFEB-9961 X 

58958 PiX-PZ 

248 FOR CAZ=0 TO LEN(A$)-1 

20050 IS=MIDS (AS, САХ, 1) 

580406 CXZ=ASC (IS) 

59078 C$=CHAR$ (CXX) 

59980 FOR CNX=6 TO LEN(C$)-1 STEP 2 





be 














2125 RETURN 96096 NOX-VAL(MIDS(CS,CNX,2)) 
2129 КЕМ DRAW А NOUGHT 50100 POKE РУ-С5%, МОХ 
2130 DRAW XULHCZZ,YIX-R2X X27+C2Z,Y2Z-R2X C44: DRAW Va, WIRT X4X+C2X 50110 PX-PZ-(XMAX4258)/4 
.Y2X-R2€ C4% 56126 NEXT CNX 
2149 DRAW XIZFCZZ.YIX-RZZ X3X-C22,YiX-R2Z CAY:DRAW X2Z+E2Z,Y2Z-R2Z XAZ4C27. 50130 IF DZ<>1 THEN PX-PiX-(X (AZ) 
YSX-RZX CAY 90140 IF DZ-1 THEN PX-PZ-(XMAX425) 
2156 RETURN 50150 NEXT CAZ 
2999 REM FIND CELL WITH HIBHEST PRIORITY VALUE 50169 RETURN 
5900 HVZ=0:FOR PZ-9 TO 3:FOR RZ=@ TO 3:FOR C4=0 TO 3 59209 DATA 00000000000000,04040404000004., 10101000000000, 10103110311010, 0415 
3020 IF MZ(PZ,RX,CX)21 THEN 5080 2014953004, 25250204081917,04101014211812,02040800000000 
3039 ТЕ МАСРА, НИ, СИ) ХНУ THEN 5060 56216 DATA 04001614160804, 04020101910204, 00042114210400, 00010421040460, 0000 
3046 IF МАСРА, RZ, CA) УНУХ THEN HVZ=NZ(PZ,RZ,CZ):P12=PZ:R1Z=RZ:C1Z=EZ:GUTO 3 9000000808165, 9098003 1980008, 00000000002424, 010102040814515 
KC 50220 DATA 14171921251714, 04122004040431, 14170102040831, 30010204021714, 0204 
3958 IF RND(1) 20.5 THEN HVX=NX (PA, КУ, CH) PIZ=PL:RIZ=RL: СІЛИ 1019310202, 31143001911714, 07081639171714, 31019204080908 
3068 NEXT CX:NEXT RZ:NEXT PX:PX-PiZ:iRX-RiXZ:CZ-C1Z: RETURN 50250 DATA 14171714171714, 14171715011714, 00121200121200, 0000000800080015, 05 
3999 REM ADD PRIORITY VALUES TO TOTAL PRIORITY VALVES 9408165080405, 00003100710000, 24040201020424. 14170102040004 
4000 FÜR TZ=@ TU Z:iPIX-PX:RiX-RAX:DiZ-CX 50246 DATA 14171714141615, 14171731171717, 30171730171730, 144 71616161714, 2818 
4620 ОМ 04 GOTO 4950, 4060, 4070 1717171828,31151520151621,21161630151615,14171519171715 
4950  PiX-TX 56258 DATA 17171731171717,14040404940414,07020202021812,17182024201817,1616 
4646 ON Q%-3 GOTO 4960, 4070, 4106, 1110, 4120, 4130, 4140, 4150, 4160, 4170 1516151531,17272121171717,17252521191917,14171717171714 
4950  PIX-TZ:G0TO 4180 56256 DATA 30171730161616, 1417171717211401, 30171736201817, 15161414010130, 3 
4650 R1Z-TZ:GÜTO 4188 9450404040404, 17171717171714, 1717171717194, 17171721212717 
4978 CIASTA:GOTO 4190 59278 DATA 17171004191717, 17171719040404, 31010294091671, 14980028080814, 1515 
4190 PIZ-PX:RiX-TX:CiZ-T4Z:80TO 4186 2804020101, 14220292020214, 04142104040404, 0000000000001 
4119 RIZ-3-TX:50T0 4189 59286 DATA 20070200000000, 00002802141821,15162818181828,00001116151514,0101 
4129 CIX-S-TZ:80TO 4188 9707690997 , 09001417301414, 04089828286805 
4159  PIX-PXiRIX-TX:CiZ-2-T4:80TO 4198 59285 DATA 900012191717150150 
4148 TiU1X-3-TX:GDTO 4186 56299 DATA 16163017171717, 040012040404 1 4, 0602090402020228, 15151820282018, 12 
4150 TZ:CiX-TX:BOTO 4186 949404040414,00002821212121,80002225181818,00001417171714 
4168 TZA:C1Z=3-TZ:BDTD 4180 50300 DATA 000022251725221515,000013191719130101,00002224151516, 00001515140 
4179 RIY=TZ:Cl1Z=TZ 130, 00083008080705, 00001717171714, 00901717171604 
4180 IF FZX-1 THEN NZ(P1Z.R1Z,C1Z2)=N% (PIZ, R1Z,C12)+5Z:G0T0 4200 50385 DATA 69021717212717 
4185 SPLUXISPIZ:SRZQUZ =R1%Z:SCZ (JZ) -CiZiJZ-JL41:1F 2/-4 THEN JXZ=@ 30319 DATA 00001710041017,000017171719120130,00003102040821, 0698082409808804, 
4199  DAX-DAZXMX (P14, RIZ, C12) 94040484040404, 127070703020212 
4280 NEXT TZ:IF FZ=0 THEN FX-1:808UB 2028: GOTO 4000 50399 REM SET UF DATA FOR BOARD 
4218  FX-O:RETURN 50490 DATA 3,10,2,14,7,98,4,100,27,900,8.1000, 5, 14, 18, 98, 12, -100 
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PROGRAMMING THE DAI IN MACHINE AND ASSEMBLY LANGUAGES 
by C W Read 


Part 3 一 WRITING A FILE IN DAI < EDITOR 


In previous parts of this series two different instructions, LXI H and 
LHLD were used to load the HL register pair. To demonstrate their 
differences, suppose an address or value ABCD is stored, low byte (CD) 
at 520 and high byte at 321. Then: 
LXI H 529 (object code 21 26 ӨЗ) puts 95 in register H and 29 in L. 
LHLD 529 (object code ZA 26 ӨЗ) puts AB in register H and CD in L. 
Thus although the LHLD operand was only 520. the instruction has ioaded 
the memory byte from address 2276 into L and then automatically stepped 
to 321 for the memory byte to load into H. 
LHLD is useful for loading address pointers but sometimes it is 
necessary to work with two addresses. Оп such occasions the XCHG 
instructon (op code ER) can help. XCHG means Exchange the contents of 
the two register-pairs DE and HL. 
Example: 

LHLD @320H Load HL with address і stored at 320/1. 

XCHG Address i moves from HL to DE and anything 

3 in DE moves to HL. 

LHLD e3oo sLaad HL with address 2 stored at 2366/1. 
LHLD and SHLD are for loading and storing Z-byte addresses. We now 
consider how to load and store i-byte values. The instructions are LDA 
address (Load Accumulator Direct) and STA address (Store Accumulator 
Direct). Op codes are 3A and 32 respectively. 
Example: to move a byte that is in memory at adddress 0075 into the 
accumulator, decrement the byte and return it to 0075: 


Source code Übject code Comment 
LDA  06075H ЗА 75 oe load accumulator with byte from 6475 
DCR 4 3D š Decrement accumulator 
STA  06075H 32 75 Өө Store decremented byte at 6975 
RET Ce 3 Return 


Try it, at say #509. It changes the flashing cursor symbol. 


Instructions for indirect loading and storing the accumulator are Load A 
eXtended and Store А eXtended. They are LDAX B {op code Фа), LDAX D 
(10), STAX B (92) and STAX D (12). B and D are register-pairs BC and DE. 
There is no LDAX H or STAX H instruction. With a valid address in 
registers BC instruction LDAX B will load the accumulator with the byte 
at that address, and STAX B will store the accumulator at that address. 
Here is an example which copies 14 bytes from one memory block (500-59F) 
to another (526-52F): 


MVI L 10H 2E 19 
LXI B өзен оі eo өз 
LXI D оө52он 11 29 95 


$16 (#12) into L for byte counter 
Source address 590 into BC 
sDestination address 526 into DE 


NXT LDAX B BA Move byte from source into А 
STAX D iz sMove byte to destination 
DCR L 2D sCount-count-i 
JZ End CA (End) sWhen L=@. Thus no more bytes 
INX B es sPoint ВС at next source address 
INX D i3 sFoint DE at next destination address 
JMP NXT CS (NXT) зоор to get next byte 
End RET со sReturn to main programme 


in Part 2 we developed an assembly language routine to display a 
programme menu on the screen. If you now re-load the source code of that 
programme into your assembler we can add a routine to it. The routine is 
to allow letters, text or data files to be written in the DAI s 
edit—mode. Even for those without a printer such a programme is useful 
for writing files of listed items or data. Writing in the editor has the 
added advantages of a functioning ТАН key and use of the arrowed cursor 
control keys (with and without SHIFT) for text alterations and screen 
scrolling. À minor snag is the different effect of the CHARacter DELete 
key which, instead of deleting the last character typed.  deletes 
whatever is at the flashing cursor signal: the use of a different cursor 
symbol can serve as a reminder that one is in edit mode. Files created 
in the editor can be saved and reloaded in Utility as type 1 files, in 
the same way as one deals with machine language programmes. Machine 
language routines for loading and saving could be added to the 
programme; see examples in DAInamic 16 and 22. 


À file writing programme will need subroutines to:- 
Initialise the edit mode. 

Fetch characters from keyboard. 

Enter characters in file and display them on screen. 
Leave the edit mode and return to the menu. 


PECES 


An area of memory will be required for writing, editing and storing the 
file: let us call it the File Buffer. Its location must be clear of the 
programme being written (S@@@—-46FFF) and, at least during programme 
development, it must also be clear of the Assembler and its working 
areas #400 to #FFF can be used with either assembler. It only provides a 
small buffer, holding about 6% screen lines of text, but it will suffice 
for the present. It can be enlarged and/or moved when we have finished 
with the assembler. We will need to store the addresses of start and end 
of the File Buffer and of the end of text or data іп the buffer. А 
labelled store can be reserved for each, using an assembler instruction 
that accepts a conventional Z-byte address in the source programme and 
converts it to low-high byte order for the Object code. The instruction 
is DEL, оғ DW, depending on the assembler. Insert the three lines 
appropriate to your assembler in the source programme immediately before 
the END instruction. 


DNS assembler SFL assembler Comment 
BufSt DEL :e4o00 BufSt DW  ea4eoH Address, start of file buffer 
BufEnd DBL 2@FFF BufEnd DW @FFFH Address, end of file buffer 
TxtEnd DEL o TxtEnd DW GH Address, buffer end-of-text 


We do not know where the end of text will be but that TxtEnd entry will 
reserve a 2-byte store for its address, initially filling it with 9900. 


Initialising the editor and making entries or changes in it involves a 
Special set of machine instructions known as the Restart group (mnemonic 
RST). The group consists of RST ©, RST 1 etc, to RST 7. These are calls 
which the microprocessor directs to one Of eight permanently reserved 
addresses in the first 64 bytes of the RAM. At each reserved address 8 
bytes are available; not enough for a complete routine but enough to 
instruct the programme to jump elsewhere to run a routine. RST © calls 
RAM address #6900, RST 1 address #0008 and the one we will be using, RST 
З (op code EF), calls #0028. At #0078 is a JMP to #CéFD for switching to 
bank 2 of the 4 ROM banks all labelled the same, EOO00 to EFFF. Bank 72 
services the screen and the editor. The RST 5 instruction is followed by 
a byte of data to indicate which of the screen or editor routines is 
required. When bank 2 has been selected the data byte is automatically 
added to Ete to make the address of the required routine. Thus with 
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instruction RST 5 Data 2A, programme control passes to E090+2A = E@2A 
which is the address of the editor initialisation routine in ROM. А11 
RST instructions save the address to which control must return after 
completion of the Restart service: also on completion, the E bank in use 
prior to the RST instruction is brought back into services for a 
programme running in Utility that would be E bank 3. 


When using the BASIC Editor the DAI creates an edit buffer and moves the 
Basic programme into it. Our programme will not do thats instead it will 
give the editor the addresses of our File Buffer, saying in effect, the 
File Buffer is now the edit buffer. LHLD and SHLD instructions will load 
and store the addresses. The Dál's editor pointers are at addresses 060052 
(start of buffer), 9974 (епа of text) and 6006 (end of buffer). The 
corresponding addresses of our File Buffer have to be stored at those 
pointers. Here is the routine, labelled InitEd, for setting the pointers 
and initialising the editor. It too can be inserted in the souce 
programme, before END. If you want to include the programme line 
comments in your source programme you will have to shorten them, 
otherwise the assembler will truncate them. 


38ET EDIT POINTERS & INITIALISE EDITOR: 

InitEd  LHLD Buf St 3 Buffer start address into registers HL 
SHLD @A2H ‘Store it in editor pointer. 9002 and 
SHLD ван in screen character-start pointer, ООВА. 
LHLD BufEnd Load end address of file buffer,and 
SHLD BAGH store it as end of edit buffer. 
LHLD TxtEnd Load current end-of-text address, and 
SHLD BASH store it as editor end-of-text 


an саз 


ee 


а ма 


RST 5 3Call Restart 5 service to 
DE 2AH š initialise the editor. 
RET Return to main programme 


The КӨТ 5 call to initialise the editor will display the text it finds 
in the file buffer, on the screen. The byte after the last text 
character in the buffer is a zero, which marks the end of text. When a 
new file is to be written the first two bytes in the buffer are made 
zero: thus the editor finds an empty buffer and starts with a clear 
screen. ñs characters are entered into the buffer the o is moved on, 
thus still marking the end-of-text. We will programme that now. Label 
the routine NEW. Load the buffer address into register-pair HL and put 9 
into memory at that address and at that addressti. Put the routine at 
the end of the source programme. 


WRITE А NEW FILE: 


NEW LHLD BufSt ‘Start address of file buffer into HL pair 
XRA ñ S Zero the accumulator 
MOV M. sMove zero to byte 1 of file buffer 
INX H iMove HL to next byte 
MOV M.A % and insert another zero 


SHLD TxtEnd Save this address in the TxtEnd store 


This routine can be continued with a call to the previous one to 
initialise the editor, followed by a sequence to fetch characters from 
the keyboard and enter them in the buffer. Label the keyboard sequence 
KEYBDS. It can use the ROM call GETC that we used earlier but this time 
the BREAK key will be used to escape from the editor, via a routine 
labelled BREAK. Another RST 5 instruction is used to insert a character 
in the buffer but this one requires the character to be waiting in the 
accumulator. The GETC routine returns with the keyed character in the 
accumulator. Then the RST 5 data 26 instruction puts that character in 


n 


the buffer and on the screen. Here is the contination of the routine 
labelled MEW: 


CALL InitEd $70 set edit pointers & initialise editor 
EKEYBDS CALL GETC sGet key pressed. Return with character in А 

Jc BREAK iWhen BREAK key pressed to leave editor 

JZ КЕҮВ ОЖ 3Loop back and look again when no key pressed 
INSERT RST 5 iKeyed character is in register A 

DB 2DH sInsert it into Edit buffer. 

JMP KEYBDS :Go back for next character 


The BREAK routine extracts the end of text address from the edit pointer 
and saves it in the TxtEnd store, then jumps back to MENU to await the 
next command. 


BREAK LHLD олан бей current end-of-text address 
SHLD TxtEnd s and save it. 
JMP MENU 


Having completed routine NEW it is necessary to gain access to it from 
the Menu. Insert in the КЕҮВрі routine, at the appropriate place: 


CPI 74° 
JZ NEW 


and in the МЕМОФ data: 
DB @DH 
DR ` Key 4 TO WRITE А NEW FILE" оғ similar phrase. 


Before assembling the programme check it for errors and save the source 
on cassettes then assemble, switch to Utility and run (56000). If you 
switch to Utility after having written a few words of text you will be 
able to see your text stored in ASCII form by giving the Display command 
D460 AFF. There is no way of getting the actual text back on the screen 
yet as Menu item 3 is still inoperative. Can you write the necessary 
routine for item 3? It will only require a dozen lines of additional 
source code because some of the sub-sections needed have already been 
written for the NEW routine. А11 the instructions needed have already 
been described. The source programme should still be in the assembler. 
Remove the existing EDIT1 NOP line. Label your routine EDITi and enter 
it after the HREAK routine. Your first instruction should put the buffer 
start address in HL, as done in NEW. The routine should then go through 
the buffer file a character at a time looking for the 20 which indicates 
end-of-texts can you remember from Fart 2 how the ROM routine PMSG uses 
ORA À to look for 66 at the end of a string? Having found the required 
end, store its address in TxtEnd, initialise the editor and jump to 
EEYBDS. Check for errors, assemble, switch to Utility and you should be 
able to display and/or edit the first text. If a blank edit screen 
appears there are probably a couple of 905 at the start of the text area 
in the buffer, caused through trying in vain to display the text by 
calling NEW. Go to Utility and check with D466 46F. If 995 are there, 
use the Substitute facility to replace them with @Ds (Carriage Returns). 
The programme should now work and the extra carriage returns can be 
removed by editing them out with the CHAR DEL key. If you have 
difficulty in writing the routine you will find a version at the end af 
this article. 


There now follows a few general hints that you may find useful when 
developing programmes and working in Utility: 
{а} Trial runs of a programme are frequently followed by switching back 
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to assembler, to make small changes to the source code. The inclusion of 
а few temporary lines in the programme can speed return to the 
assembler. For example, in our current programme the Menu routine could 
include: CPI À, JZ 8560H (SPL start address) or JZ :1166 (DNA start 
address). Thus, while the menu is on screen, key A provides an immediate 
jump to the assembler. 

(b) When using the Utility Monitor the normal Escape from a Utility 
command is via the Cursor Left key. However some commands can actually 
start operating as soon as the cursor key is pressed and before Escape 
becomes effective. This is the sort of action which may overwrite 
programmes with rubbish and turn the screen into a kaleidoscope. Escape 
from a Go command with an incomplete address is particularly prone to 
such calamities. If you must escape from a situation where the DAI is 
waiting for another address digit. it is safer to type in a letter, say 
Q, (mot А to F) and let Utility^s error system throw out the command on 
the grounds of an invalid address. 

tc) If running a machine language programme results in a STACK OVERFLOW 
message the cause may be the same that can arise with a BASIC programme, 
namely a Jump out of а called subroutine instead of а RETurn. Another 
possible cause is a PUSH without its necessary POP. Inspection of the 
source programme will usually reveal the fault, as long as the programme 
is short and uncamplicated. For long programmes it is easier to switch 
immediately to Utility and display the Stack with the command DF896 
FBFF. If you now see an address that is repeated very many times it is 
either the return address for which your programme has not given a RET, 
or it is the contents of a PUSHed register which was never FOPped. In 
either case the address should guide you to that part of the source 
programme wherein the error lies. 

{td} If you are doubtful about a section of programming it is always 
worthwhile entering a short example at say #300 with Utility S commands, 
and then using the Look facility to see if the registers are being used 
as you intended. Do not forget to key Z3 before giving the L comand! 


Finally, here is the promised EDIT routine: 


EDIT! LHLD BufSt Load HL with start address of the buffer 
EDIT2 INX H sStep to next address 

MOV ALM sMove character from there to А 

DRA à sTest for a character or oo 

JNZ EDIT2 Character found, so try the next address 

SHLD Тх%ЖЕпа Soo found. End-of-text found. Save its address 


CALL — InitEd iStart editor, display text 
JMF KEYBD3 sReady for editing. 


We should ensure that the above routine does not search for 99 beyond 
the end of the buffer, into the rest of the RAM. That can be done by 
putting #4 in the last byte of the buffer. Do it at the start of the 
programme, after the ORG directive, with the following entry:- 


ORG 

ІНІ) BufEnd ;jLoad buffer-end address into HL pair 
ХКА ñ sZero the accumulator 

MOV M.A іМоуе the zero into end of buffer. 


Ав the BREAK key is used for escaping from both NEW and EDIT routines to 
redisplay the menu, you may wish to display a note to that effect at the 
foot of the menus it would add a "user-friendly" touch. 


ito be contined) 








DAlnamic 33 64 DAICLIC 6 





















SUPERFONT .. 50 ОЕ INAGINATION! 
SUPERFONT .. SOURCE OF IMAGINATION? 
SUPERFONT .. SOURCE OF IMAGINATION! 
SUPERFONT .. SOURCE OF IMAGINATION! 
SUPERFONT .. SOURCE OF IMAGINATION: 
SUPERFONT .. SOURCE OF TIHAGINATION 


SUPERFONT 








